Select Code to Download

use Fcntl qw(:DEFAULT :flock);

...
   or die "Cannot get a lock on $outfile:$!\n";
truncate(OUT, 0)
   or die "Cannot truncate $outfile:$!\n";