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