use strict;
use LWP::Simple qw(get head);

my $url = 'http://www.w3c.org';
print head($url)->{_headers}->as_string;