--- Irc.old	Mon Jan 17 18:55:44 2000
+++ Irc.pl	Mon Jan 17 18:56:47 2000
@@ -341,15 +341,16 @@
     $nicktries=0;
     $connected=1;
 
-    while ($connected) {
-	srvConnect($param{server}, $param{port});
-
-        if ($param{server_pass}) { # ksiero++
-            rawout("PASS $param{server_pass}");
-        }
-
+while ($connected) {
+	@serv = split(/, /,$param{server});
+	$servr = "$serv[int(rand(@serv))]";
+	srvConnect($servr, $param{port});
+	if ($param{server_pass}) { # ksiero++
+		rawout("PASS $param{server_pass}");
+	}
 	rawout("NICK $param{wantNick}");
-	rawout("USER $param{ircuser} $param{ident} $param{server} :$param{realname}");
+	rawout("USER $param{ircuser} $param{ident} $servr :$param{realname}");
+
 	if ($param{operator}) {
 	    rawout("OPER $param{operName} $param{operPass}\n");
 	}