use warnings;
    use LWP::Simple;
    
    my $url = 'http://example.com';

    my ($t1, $t2, $t3, $t4, $t5)=head($url) or die 'Unable to get page';
    my $temp = head($url) or die 'Unable to get page';
    print Dumper($temp,$t1, $t2, $t3, $t4, $t5);
    print "done\n";
    exit 0;

##</code><code>##

 
$temp['headers']['etag'] 
and
$temp['_rc']
and
$temp['_request']['_headers']['user-agent']