sub flush { my $h = select($_[0]); my $af=$|; $|=1; $|=$af; select($h); } [download]
In reply to Re: Generating Delay by ikegami in thread Generating Delay by gzayzay