package foo;
$x = "a string";
@y = qw(an array);
%z = qw(a hash);

sub func1 { print "in foo:: \n" }

1;

package main;

foreach my $sym (keys %foo::) {
    *{"main::$sym"} = *{"foo::$sym"};
}