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

##</code><code>##

U:\>perl -we "package bar; sub new {return(bless({}))}; sub mankato{print __PACKAGE__}; package foo; push @ISA, qw|bar|; package main; my $o = foo->new(); $o->mankato();"
bar