LWP に付いて質問です

#!/usr/bin/perl

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->agent("$0/0.1 " . $ua->agent);

$req = HTTP::Request->new(GET => 'http://www.yahoo.co.jp/');
$req->header('Accept' => 'text/html');

# リクエストの送信
$res = $ua->request($req);

# 出力のチェック
if ($res->is_success) {
print $res->header; # ヘッダー全体を出したいっ！！
print $res->content;
}
else {
print "Error: " . $res->status_line . "\n";
}



print $res->header; のところで、レスポンスヘッダー全体を出力したいのですが、
何故か、空が返されます