sub fred {
    open(my $fh, "< f.tmp") or die "open error f.tmp";
    # ... process file here
    die "oops";   # if something went wrong
    close($fh);
}
eval { fred() };
if ($@) { print "died: $@\n" }
# ok, $fh is auto-closed when its ref count goes to zero