Select Code to Download

%subs = (
    foo => sub {
...
    *$AUTOLOAD = $subs{$name};
    ...
}

%subs = (
    foo => 'print "Hello, world!\n";'
...
    *$AUTOLOAD = eval "sub { $subs{$name} }"
    ...
}