open で失敗した時に
open(〜)||〜;
で後者には　$hogehoge = 1;　とかは掛けないのでしょうか？
一応自分でやった限りは　dieとexit と　&hogehoge 等のサブルーチン
しか使えませんでした。