open(LOCKME, "+< $file_to_lock") or die "No open $!\n";
flock(LOCKME, LOCK_EX) or die "No lock $!\n";
sleep(20); ## Have another process test the lock now...
close(LOCKME) or die "No close $!\n";