in reply to Generating Delay
sub flush { my $h = select($_[0]); my $af=$|; $|=1; $|=$af; select($h); } [download]
Thanks to all Monks for their assistance.
Edman