use IO::Handle;
open(my $fh, '<', $qfn);
$fh->autoflush