die "a horrible death" if ( -f "lockfile");

open LOCK, ">", "lockfile" or die;
close (LOCK);

... do some stuff ...

unlink("lockfile");