if (!open(my $fh, '<', $qfn)) {
   ...
}

print $fh $s;  # XXX