sub AUTOLOAD {
    our $AUTOLOAD;
    ...
}

##</code><code>##

sub new { # any constructor
    my ($proto) = shift;
    my $class = ref($proto) || $proto;
    my $parent = ref($proto) && $proto;
    my $self;
    $self = {};            # create a new object
    bless($self, $class);
} # new

##</code><code>##

sub new { # any constructor
    my $class = shift;
    my $self  = {}; # or some initializing routine
    bless $self, $class;
} # new