sub exit_routine {
for my $serial ( keys %server_objects ) {
        my $server = $server_objects{$serial};
        my @ret = $server->logout();
}

}

sub logout {
    my $self = shift;
print "logging out";
}

};