sub new { my $class = shift; return undef if ref $class; .... }