U:\>perl -e "package bar; sub mankato {print __PACKAGE__}; package foo; *mankato
 = \&bar::mankato; mankato();"
bar