use LWP;
     my $br = LWP::UserAgent->new;
     my $resp = $br ->get('http://www.pulse24.com'); 
     print $resp->headers_as_string";
__END__
     Client-Peer: 207.61.136.40:80
     Client-Response-Num: 1
     REFRESH: 0;URL=http://www.pulse24.com/Front_Page/page.asp
     X-Meta-Robots: noindex
     X-Powered-By: ASP.NET