foreach my $l (@main::listen) {
$conn = ExtMsg->new_server($l->[0], $l->[1], \&login);
$conn->conns("Server $l->[0]/$l->[1]");
push @listeners, $conn;
foreach my $l (@main::listen) {
$conn = ExtMsg->new_server($l->[0], $l->[1], \&login);
$conn->conns("Server $l->[0]/$l->[1]");
push @listeners, $conn;