Select Code to Download

print "$dat\n";   #Print to screen here and it does work here.

print $data->{'_headers'}->{'last-modified'};

my $dat = (head('http://web/web.html'))[2];
print "last-modified header value: $dat\n";