open(F, ">$wherever/myscript.pid") or warn "myscript.pid: $!\n";
print F "$$\n";
close(F);

$SIG{TERM} = sub { exit; };

END {
   unlink "$wherever/myscript.pid";
}