Select Code to Download

# anything windows, including Cygwin
my $is_winenv = ( $^O =~ /mswin|mingw|msys|cygwin/i );
...
$svr->shutdown( 2 );
close $svr;

#! perl -slw
use strict;
...
        $svrN / ( time() - $start );
}

Y:\>perl demo_thr.pl
server:208500 client:208501 cycles: 2128.246/secTerminating on signal 
+SIGINT(2)

$ netstat -na | wc -l
     21

$ netstat -na | wc -l
  14055