flock失敗時はプログラム終了

通常は、ロックを取得するまで待機するが、LOCK_NB (ノンブロッキング)を使えば、
ロック取得に失敗した場合の処理を書ける。

open(F, "file");
$lock = flock(F, (LOCK_EX | LOCK_NB));
unless ($lock) { print "ロック中！終了します\n"; exit 1;}