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