$self= new $breed;
. . . 
bless $self,$breed;