open my $filehandle, '<', $filename
    or die "Can't read '$filename': $!";
while ( <$filehandle> ) {
    # etc.
}
close $filehandle or die "Fail on close '$filename': $!";