use strict;
use warnings;

use LWP::UserAgent;

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

my $ua = LWP::UserAgent->new();
my $response = $ua->head($url);  # or "get", etc.

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