Do it the easy way....

use LWP::Simple;
$data = head('http://www.somesite.com');
print $data->{'_headers'}->{'last-modified'};

# this shows you the available data in the header
use Data::Dumper;
print "\n\n", Dumper $data;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print