open(FIL,">>$myfil") || "Can't open $myfil: $! \n";
select((select(FIL), $|=1)[0]);

##</code><code>##

use IO::Handle;
open(FIL,">>$myfil") || "Can't open $myfil: $! \n";
FIL->autoflush();