use IO::Handle;

$F = new IO::Handle;
$F->autoflush(1);