ファイルをオープンできなかったときメッセージを表示するには
これでいいんですか？
$file_open_flg = open(IN,"<datafile.csv");
@lines = <IN>;
close(IN);
if($file_open_flg==undefine){
print "ファイルをオープンできません";
}