モジュールを使ってリクエストヘッダーの表示をさせたい

解決済

質問者：taku0
質問日時：2006/04/10 22:56
回答数：1件

宜しくお願いします。
ウェブサーバーにリクエストを送った際、
リクエストヘッダ
レスポンスヘッダとあると思うんですけど、
レスポンスヘッダは下記の形で表示できるのですが、
リクエストの際のヘッダ情報（HOST:やReferer:など）を表示させる事ができません。
どなたか、モジュールを使った形でリクエストヘッダを表示させるプログラム記述をご教授願えませんでしょうか。
※下記は実際にテストを行っているリクエストヘッダとレスポンスヘッダとソースを表示する記述例です。（レスポンスヘッダは正常に表示できているとおもうのですが・・。）
#!/usr/bin/perl
use HTTP::Request::Common qw(POST GET);
use LWP::UserAgent;
use HTTP::Cookies;
my $ua = LWP::UserAgent->new;
my $req = $ua->request(HTTP::Request->new(GET => "http://localhost/"));
print "Content-type: text/html\n\n";
print $req3->headers_as_string([$endl]);#これを追加し表示される情報はリファレンスっぽくなってしまうのと、
#リクエストヘッダのHOST:やReferer:UserAgentなどの情報が入ってないので、
#モジュールを利用してリクエストヘッダを表示させてみたいです。
print $req->as_string;

リクエストヘッダーのイメージは下記のような情報だと思うのですが、モジュールを使って表示させる事はできないでしょうか
どなた様かご教授の程宜しくお願い致します。
HTTP/1.1 Accept: */* Referer: http://okwave.jp/search.php3 Accept-Language: ja User-Agent: Mozilla/4.0 (compatible
; MSIE 6.0; Windows NT 5.0) Host: okwave.jp Connection: Keep-Alive Transfer-Encoding: chunked Content-Type: text/html; charset=Shift_JIS