So why not code a test right into your script (maybe in a BEGIN{...} block) using Proc::PID::File?

    After all, that's the very first example in the Synopsis!

- - for posing a question without -- it appears -- even minimal effort on your part.