use Fcntl ':flock' ;

open(OUT, ">>C:\\temp\\RTEOlock.log") ;
flock(OUT, LOCK_EX) ;
...