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