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