open my $fh, '<', $filename; # No warning;
open my $fh, $filename or die $! # No warning;
open my $fh, $filename; # Issues a warning.