use IO::Handle;
...
$fh->autoflush();