>>319
open(FILE, "< $file_name") or die "Cannot open $file_name\n";
が普通だと思うのは僕だけですか？