my $oldfh = select(FH);
    $| = 1;
    select($oldfh);

##</code><code>##

    FH->autoflush(1);