Select Code to Download

#!/usr/bin/perl

...
  close INPUT;
  close OUTPUT;
}

...
my $paramre = join '|', @params;
...
  print OUTPUT "$1 $2\n";
}
...