use Fcntl qw(:DEFAULT);
sysopen(FH,"/tmp/bla",O_RDWR|O_CREAT|O_EXLOCK,0644) or die $!;
sleep 1000;