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

##</code><code>##

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

##</code><code>##

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