open my $filehandle, "<", $filename or die "Oof! $!";
while (<$filehandle>) {
  do_something();
}
close $filehandle;
do_something_else()