Select Code to Download

BEGIN {
    sub main_package_vars {
        foreach(@_) {
...
        }
    }
}

    sub main_package_vars {
        foreach my $name (@_) {
...
            }"
        }
    }

BEGIN {
    eval "*package_vars2 = \*main::main_package_vars";
    *package_vars3 = \*main::main_package_vars;
}

package_vars3( qw(one two three) );