>>753
sub timecheck {
　($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
　&filelock ;
　if ( !(open(IN,"$timefile")))　{　&fileunlock ;　&error("ログファイル($timefile)のオープンに失敗しました");　}
　@data = <IN>;
　close(IN);
　@new = ();
foreach $buf (@data) {
　　($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = split(/,/,$buf);
　　push(@new,"$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst");
　}

　if ( !(open(OUT,">$timefile")))　{　&fileunlock ;　&error("ログファイル($timefile)のオープンに失敗しました");　}
　print OUT @new;
　close(OUT);
　&fileunlock ;
}

この様な形で書いてます。
ファイルのアクセス処理自体は出来ていて、ファイルを入れられない状況、というのが実情です。
よろしくお願いします。