Help for this page
use strict; use warnings; ... die "$num\n" unless $str eq '123'; print "$num\n" unless $num ++ % 1000; }
use strict; use warnings; ... $sock-> close; select( undef, undef, undef, 0.01 ) }