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