Uh, I see the testing step at the top of the program, then the create-a-lockfile later. Maybe you knew that this wasn't the real logic of the program, but you sure didn't communicate that in a way that wasn't going to bite the newbies.

-- Randal L. Schwartz, Perl hacker