sub foo {
    ...
    open my $fh, '<', $path or die $!;
    ...
    # hier am ende wird $fh automatisch geschlossen
}