my $filename = 'foo';
open my $filehandle, '<', $filename or die "opening '$filename': $!";