> > そうです(;´Д`)
> 昔作ったLast-Modified:出力あった(´ー｀)こんなんで頼む
> 	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("test.pl"); # stat(_);
> #	$mtime = -M "test.pl";
> #	print "$mtime\n";
> 	($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = gmtime($mtime);
> 	$sec  = "0$sec"  if ($sec  < 10);
> 	$min  = "0$min"  if ($min  < 10);
> 	$hour = "0$hour" if ($hour < 10);
> 	$day  = "0$day"  if ($day  < 10);
> 	$year += 1900;
> 	$smon = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon];
> 	$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];
> 	print "Last-Modified: $week, $day $smon $year $hour:$min:$sec GMT\n";

ｸｽｺ㌧㌧(;´Д`)
Last-Modifiedは記録してたんですが、
間違って、記録していないCRCの値が入った変数の中身を出力してたみたいです
今直したのでもう動くと思います(;´Д`)ｽﾏﾝｺ

参考：2002/06/08(土)17時26分02秒