use IO::Handle qw( );
FH->autoflush(0);

##</code><code>##

use IO::Handle qw( );
FH->autoflush(1);

##</code><code>##

use IO::Handle qw( );
FH->flush();