package Foo;
sub foo();
sub new { bless[] }
package Bar;
our @ISA = qw(Foo);
sub new { bless[] }