Select Code to Download

print $a::fred;

package foo;
$x = "a string";
...
foreach my $sym (keys %foo::) {
    *{"main::$sym"} = *{"foo::$sym"};
}