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