open( my $fh, '<', $file )
    or die "Error: can't open file '$file': $!\n";