$self->{type} = "cat"; 
print "$self->{typpe}\n";