Select Code to Download

#! perl -sw
use strict;
...

close $server;

perl -Mthreads=stack_size,4096 -MIO::Socket 
-E"
...
    shutdown $s, 2; 
    close $s; 
}->detach for 1 .. 1e6"