my $filename = 'some/filename.txt';
open my $fh, '<', $filename
    or die "Couldn't read '$filename': $!";
while (<$fh>) {
...
}