use strict ;
use Fcntl qw/:flock/ ;
open (TEST, ">>test.dat") or die "can't open file: $!\n" ;
flock (TEST,LOCK_EX) ;
print TEST "test2\n" ;
close TEST ;