You mean Proc::PID::File? Have a look at File::Lockfile but it's not that much easier.

use Proc::PID::File;
die "Already running!" if Proc::PID::File->running();
[download]

Doesn't get much easier than that, does it? Edit: ups, ww beat me to it :)