HTTPヘッダの取得
LWPとHTTP::Requestを使う
use strict; use warnings; use LWP; use Data::Dumper; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(HEAD => 'http://www.care-service.jp'); my $header = $ua->request($req); #print Dumper $header; print $header->as_string,"\n";