sub flushall {
   for my $fileno (0..1024){ ## blah blah constants
       open my($fake), "<&=$fileno"; ## UGLY
       $fake->flush;
   }
}