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;

##</code><code>##

CODE(0x8149624)
Undefined subroutine &G::foo called at - line 9.