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