I'd recommend having a look through Lincoln Stien's Network Programming with Perl as that has some stuff on writing code to do this sort of thing.

The other thing I'd say is that really make sure that anything that might cause the script that creates the lock file to fall over is caught in such a way that the lock file is deleted. Otherwise it will look like your script is running when it's not.

Struan