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