Using Proc::PID_File is a pretty straightforward way of making sure your process is only running once:

use Proc::PID_File;
exit if hold_pid_file("/tmp/myscripts_name_here.pid");
[download]

gav^