package SessionManager;
#....
sub MakeNewSession {
    my $self=shift;
    my $session=Session->new() 
            || die "Failed to construct Session!";
    my $id=$session->SessionID;
    die "SessionID returned an undef value!"
            if !defined($id);
    print "New session has ID of ".$i;
    return $session;
}