open( my $fh, "<", $file );
if ( $fh ) { ... }
else { log_error( "Couldn't open $file for 'reading': $!" ); }