sub new {        my $class = shift; ...        bless($self,$class); ... }