($prsize, $prmtime) = (local $_=stat($yakinFile)) ? ($_->size, $_->mtime) : (0, 0);
$ctime = time;
$keika = $ctime - $prmtime;

#初めて
if(!$prsize)
{
open(YAN1,">>$yakinFile");print YAN1 "1";close(YAN1);
return 1;
}
#二回目以降
if($keika < $spanspan)
{
my $ato = $spanspan - $keika ;
# open(YAN1,">>$yakinFile");print YAN1 "1";close(YAN1);

print "Content-type: text/html; charset=shift_jis\n\n";
print <<EOF;
<html><head><title>ＥＲＲＯＲ！</title><meta http-equiv="Content-Type" content="text/html; charset=shift_jis"></head>
<body><!-- 2ch_X:error -->
あれから鰊は何処へ行ったやら〜♪ (あと $ato sec)<br>
</body>
</html>
EOF
exit;
}
# unlink($yakinFile);
open(YAN1,">>$yakinFile");print YAN1 "1";close(YAN1);