sub autoflush {
    my $fh;
    my $old = select $fh;
    $|++;
    select $old;
}