Help for this page

Select Code to Download

Select or download this

sub flush {
   my $h = select($_[0]); my $af=$|; $|=1; $|=$af; select($h);
...
autoflush(*FILE,  0);
autoflush(\*FILE, 0);
autoflush($fh,    0);

Select or download this

# Flush immediately without turning auto-flush on:
$io->flush();
...

# Turn auto-flush off:
$io->autoflush(0);