{
    open(my $FH, "<", $filename)
        or die("Cannot open: $filename\n  $!");

    while (<$FH>) { ... };

    # unnecessary - $FH gets closed once it leaves lexical scope
    #close($FH);
}