use HTTP::Lite;
use HTTP::Date;

my $url = 'http://www.unko.com/';
my $http = new HTTP::Lite;
$http->{'method'} = 'HEAD';

my $status = $http->request($url) or die 'web ページ取得に失敗しました: '.$!;
print $url,' ',$status,"\n";
if ($status eq '200') {
  my $Last_Modified = $http->{'resp-headers'}->{'Last-Modified'}[0];
  print $Last_Modified,"\n";
  my $mtime = str2time($Last_Modified);
  if ($mtime) {
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($mtime); # = gmtime($mtime);
    print sprintf("%04d/%02d/%02d %02d:%02d:%02d\n",
          $year + 1900, $mon +1, $mday, $hour, $min, $sec);
  }
}