Select Code to Download

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

# $fh is out of reach here

my $fh if ...;