Select Code to Download

sub AUTOLOAD {
    our $AUTOLOAD;
    ...
}

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

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