Select Code to Download

  while(<IN>) {
   chomp;
...
   my $out = join '|', @fields[0..5], $fixed_path, "\n";
   print OUT $out;
}