Select Code to Download

my $found=0;
while(<USERPREF>) {
...
   print "not found $_ \n";
   #write
}

while (<$fh>) {
  chomp;
...
        print OUTFILE $_;
    }
}