LWP::UserAgentの返り値、正確には、HTTP::Responseの
$r->status_line
の返り値をそのまま表示しています。