use strict;
use warnings;

use LWP::Simple;

my $url = "http://www.cpan.org/";

my $response = head($url)
   or die("Error fetching URL $url\n");

print($response->protocol(), ' ');
print($response->status_line(), "\n");
print($response->headers_as_string()); # $response->headers->as_string