Select Code to Download

my $sub_name = 'this';
my $x = do { no strict 'refs'; \&$sub_name };
...
sub this {
    return "hi";
}