sub new {
    my ($class) = @_;
    return(bless(dog->new(),$class));
}