package Bob;
sub new {bless({}, shift)->init}
sub init {
    my $self = shift;
    $self->{command} = undef;
    $self;
}
my $bob = Bob->new;

##</code><code>##

package MyUncle;
sub new {bless({}, shift)->init}
sub init {
    my $self = shift;
    $self->{topping} = "dessert";
    $self;
}
package BobIsMyUncle;
our @ISA = ('Bob', 'MyUncle');
sub new {bless({}, shift)->init};
sub init {
    my $self = shift;
    $self->Bob::init->MyUncle::init;
    $self->{floor}='wax';
    $self
}
my $bob_is_my_uncle = BobIsMyUncle->new;