>>557
「今日」より前か。昨日作ったファイルだったら、なにかしたいわけか。
うーん、むずいなぁ。こんなんでどう？
my ($sec,$min,$hour) = localtime(time);
$kyou = time - ($sec+$min*60+$hour*60*60);
print $kyou > (stat($filename))[9];

テストしてないけど