socket(SERVER, PF_INET, SOCK_STREAM, $proto);

. . .

while ($paddr = accept(USER, SERVER)) {
   . . .
  $thr = threads->create($sub_name, \*USER);
   . . .
}

##</code><code>##

my $ServerSocket = new IO::Socket::INET (
				LocalPort => $port,
				Listen => 2,
				Type => SOCK_STREAM,
				Reuse => 1,
				Proto => 'tcp'
			);
...
while ($clientSocket = $ServerSocket->accept()) {
   . . .
   $thr = threads->create( $sub_name, $clientSocket);
   . . .

}
Die "END ServerAccept(), $!";