Select Code to Download

my $var = \&funcname;
&$var;

sub funcname { print "funcname\n" }

$var = 'funcname';
&$var;

my %dispatch = (foo => \&foo,
                bar => \&bar );

...
sub bar {
    print "bar\n";
}