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