Perl で ファイルの読み込み時にエラーを出すには

Perl 　でファイルの読み込み時にエラーが出たときにメッセージを出力するには


例１

$filename = "data2.txt";
if( ! open FH , $filename ){
      print $filename . "  open error\n"; 
}

例２

$filename = "./data2.dat";
open( FH , "$filename" ) || die "Error: $filename $!\n";