Select Code to Download

    my $sub = $tied;
    print $sub->(5), "\n";

sub wrap {
   my ($r) = @_;
...
}

my $tied = wrap($r);