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

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

# Flush immediately without turning auto-flush on:
flush(*FILE);
flush(\*FILE);
flush($fh);

# Flush immediately and turn auto-flush on:
autoflush(*FILE,  1);
autoflush(\*FILE, 1);
autoflush($fh,    1);

# Turn auto-flush off:
autoflush(*FILE,  0);
autoflush(\*FILE, 0);
autoflush($fh,    0);

##</code><code>##

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

# Flush immediately and turn auto-flush on:
$io->autoflush(1);

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