#!perl

open(TEST, '>', 'file.tmp') or die "Can't open file: $!\n";
flock(TEST, LOCK_EX) or die "Can't lock file: $!\n";

print "Passed\n";
print TEST "Hello, World!\n";

close(TEST);