Select Code to Download

use strict;

sub foo { print "bar\n" }
...
my $func_ref = \&{$func};

$func_ref->();

sub AUTOLOAD {
    # get params and function
    # ...
...
    my $func_ref = \&{$func};
    goto &{$func_ref};
}