use IO::Handle; #(or use IO::File)
...
FH->autoflush;