print "flocking now\n";
flock (FILE, 2);
print "done flocking\n";

##</code><code>##

copy foo bar
rm foo
copy bar foo
rm bar