Select Code to Download

sub run_in_package (&$) {
    my($code, $package) = @_;
...
sub showcaller {
    warn scalar caller;
}