Help for this page

Select Code to Download


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