Select Code to Download

    use My::ThereCanBeOnlyOne '/tmp/myprogram.pid';

   use My::ThereCanBeOnlyOne '/tmp/myprogram.pid',
                             -hold  => 0,
                             -stale => 1,
                             -max   => 1;

package My::ThereCanBeOnlyOne;
use strict;
...
}

1;