my $io = IO::Handle->new_from_fd(fileno(STDOUT),"w"))
...
$io->print(...);
...
$io->flush();
...