Help for this page

Select Code to Download


  1. or download this
    #!perl

use IO::Socket::INET;
...
        print "Thread: loop while(\$client=\$server->accept) was broke
+n with reason \"unknown\", going to return.\n";
        return 1;
}
  2. or download this
    #!perl
use IO::Socket::INET;
...
}

close $server;
  3. or download this
    #!perl
use IO::Socket::INET;
...
        print "Thread: loop while(\$client=\$server->accept) was broke
+n with reason \"unknown\", going to return.\n";
        return 1;
}