Socket reconnect langsam

[Benne]

Hallo,

ich habe ein kleines Benchmark Skript für einen Dienst auf meinem Server geschrieben. Dieses empfängt zunächst den hello vom Server und gibt ihn aus. Danach sendet es 100 newline-terminierte Zeichenketten
Allerdings ist der Reconnect sehr langsam. (ca. 1s pro Schleife)
Lasse ich das Perl Skript nach jedem Schleifendurchgang beendet und starte es wieder neu, so geht der Reconnect rasant schnell:

  
while [ 1 ]; do ./test.pl; done  

hier mal der prinzipielle Aufbau:

  
my $socket;  
while(1) {  
   $socket = IO::Socket::INET->new("$server:$port")  
                         or die "Connection failed. $!\n";  
   print while(<$socket>);  
   print $socket "test $_\n" for(0..99);  
   $socket->close();  
}  

hat jemand eine Idee woran das liegen könnte?

Danke und Gruß,
Benne