Help for this page
open(FIL,">>$myfil") || "Can't open $myfil: $! \n"; select((select(FIL), $|=1)[0]);
use IO::Handle; open(FIL,">>$myfil") || "Can't open $myfil: $! \n"; FIL->autoflush();