use Fcntl qw/:flock/;

OPEN(LOCKFILE, ">.lockfile") || die "another process already running";
flock LOCKFILE, LOCK_EX;

long_and_boring_function_call();
close LOCKFILE;  #close unlocks file