Select Code to Download

while (my $line = <DATA>) {
  my @aFields=split(/\s+/,$line);
...
  #print row
  print "@aFields $result\n";
}