Select Code to Download

use Fcntl qw( :flock );

...
system("type file");

unlink('file');

>perl 590735.pl
type without lock:
...

type with lock:
The process cannot access the file because another process has locked 
+a portion of the file.