Select Code to Download

$self->Session::init (@args);

    my $obj=new Some::Module;     # ok but not so cool
    my $obj=Some::Module->new();  # TWTDI

package Session;
#....
...
        $self->init(@_); #no need to copy @_
        return $self;
};

package SessionManager;
#....
...
    print "New session has ID of ".$i;
    return $session;
}