if (open(my $fh, '<', $qfn)) { ...read from $fh... } # $fh is out of reach here