Select Code to Download

my $r = { subref => sub { return 2 * $_[0] } };
...
    
    return $$r{subref};
}

# This will perform the pre-action before executing
...

    print $tied, "\n";
}