Help for this page

Select Code to Download


  1. or download this
    sub flush {
   my $h = select($_[0]); my $af=$|; $|=1; $|=$af; select($h);
}