#!/usr/bin/env perl
use Proc::PID::File;
die "Already running!" if Proc::PID::File->running();

##</code><code>##

pid "/var/run/proc_pid.pl.pid" already locked: Bad file descriptor

##</code><code>##

#!/usr/bin/env perl
use Proc::PID::File;
die "Already running!" if Proc::PID::File->running(dir=>"/my/home/dir");