Then that "another Perl program" first needs to check whether the file is locked or not, and unlink() or truncate() (if appropriate) it only if it's not locked.

--perlplexer