use Fcntl ':flock';
open my $me, $0 or die;
flock $me, LOCK_EX|LOCK_NB or exit;