local *PID_FH;
sysopen(PID_FH, $file, O_RDWR | O_CREAT) or die
  "Can't open PID file $file: $!\n";

flock(PID_FH, LOCK_EX) or die
  "Can't get write lock on PID file $file: $!\n";