my $spp = $NOWTIME - $FORM{'key'};
my $speed = int($lognum*60/$spp);
if($speed > 12)
{
if(open(OUT,">>$dattemp"))
{
print OUT "とも子<>sage<> $DATE <> STOP !! ($speed res/min) 実況等は実況板でお願いします。 <>\n";
close(OUT);
$lognum++;
}
umask(0);
chmod(0555, $dattemp);
}