Help for this page

Select Code to Download


  1. or download this
    
use Socket;
...
}

sub flush { select($_[0]); my $t=$|; $|=1; $|=$t; }