package F;
sub foo { "foo" }
       
package G; @ISA = qw(F);
print \&foo; # creates entry in G's symbol table

package main;
my $o = bless [],"G";
print $o->foo;