my $proto = shift; my $class = ref($proto) || $proto; # stuff to create self bless($self,$class);