#!perl
use strict;
use warnings;
use LWP::UserAgent();
printf "%s Perl %s LWP %s\n\n",$^O,$^V,$LWP::VERSION; 

my $url = 'URL';
my $ua = LWP::UserAgent->new;
my $resp = $ua->head($url);

print $resp->as_string;