Help for this page

Select Code to Download

Select or download this

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

...
  $thr = threads->create($sub_name, \*USER);
   . . .
}

Select or download this

my $ServerSocket = new IO::Socket::INET (
                LocalPort => $port,
...

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