Select Code to Download

my $file_name = ...;
my $kwd       = ...;
...
      print "$_\n\n";
   }
}

my $fn_in  = ...;
my $fn_out = ...;
...
      print $fh_out "$_\n\n";
   }
}