##############inheritest.pl#######################
#use mammal;

my $object = mammal::badger->new;
print $object->hunt;
print $object->snuffle;

##############################################
package mammal;
use vars qw(@ISA);
sub new
{
        my %object = ('blood'=>'warm');
        return bless \%object;
}

sub snuffle
{
        return "Snuffle";
}


package mammal::badger;
use vars qw(@ISA);
@ISA = qw (mammal);

sub new
{
        my %object = ('stripes'=>'true');
        return bless \%object;
}

sub hunt
{
        return "for worms";
}

1;