package Session;
#....
sub new {
        my $proto=shift;
        my $class=ref($proto) || $proto;
        my $self=bless {}, $class;
        # the below line assumes that this new is from 
        # the Session class        
        $self->init(@_); #no need to copy @_
        return $self;
};