>>465
eval{flock(SUBW,8);};
は消してもかまわない。
closeで自動的にflock解除してくれる。