my $fh = IO::File->new($qfn, 'r') or die("Can't open file \"$qfn\": $!\n");