Select Code to Download

{
    no strict 'refs';
    # the code
}

my %code = (
    foo => \&foo,
    bar => \&bar,
...
);
my $pick = 'foo';
$code{$pick)();