>>630
これじゃ、質問の答えにはなってないと思うが
> open(FILE, +< $file);
perlfunc嫁。modeは別の引数に出来る。
open(FILE, '+<', $file);