Client soll mehrere Socketverbindungen aufbauen

[finalstage]

Hallo,

habe zur Zeit das Problem, dass ich ein PerlScript habe was mehrere Socketverbindungen zu verschiedenen Servern aufbauen soll, jedoch kann das Script keine zweite TCP-Verbindung zu einem anderen Server aufbauen..

Funktioniert..

$con[0]=new IO::Socket::INET->new(PeerPort=>'30386',Proto=>'tcp',PeerAddr=>'127.0.0.1') or die "cannot bind : $@\n";

Geht nichtmehr.. (cannot bind : IO::Socket::INET: connect: Unknown error)

$con[1]=new IO::Socket::INET->new(PeerPort=>'30486',Proto=>'tcp',PeerAddr=>'127.0.0.1') or die "cannot bind : $@\n";

Woran liegt das und was mache ich falsch und was kann ich dagegen tun? :)
Läuft alles auf Windows XP..