Select Code to Download

my %handles;
sub handle_for_name {
...
       return $h;
    }
}

use Memoize;
memoize("handle_for_name");
...
    open my $h, '<', $f or die "Can't open file '$f': $!";
    return $h;
}