use autodie qw/open close/;

open my $fh, '<', 'filename';
while (<$fh>) {
  # Do stuff here
}
close $fh;