Perl socket приложение виснет после подключения n раз

могли бы и код приложить.. )

да как бы все бонально.
#!/usr/bin/perl

$| = 1;
use IO::Socket::INET;

$host = 'blabla';
$port = 'blabla';
$socket = new IO::Socket::INET (
PeerAddr=> $host,
PeerPort=> $port,
Proto=> 'udp' ) or die "ERROR in Socket Creation : $!\n";
$data = "blabla";
syswrite $socket, $data;
sysread $socket, $x, 65535;
$socket->close();