package foo;
sub foo {print "bar"};
package main;
%main:: = %foo::;
print "$_ => $main::{$_}" for keys %main::;
foo();
__END__
foo => *foo::foo
Undefined subroutine &main::foo called at -e line 1.