Select Code to Download

  my $j = 0;
  my($line,$field,$record);
...
    print RESULTS $line,"\n";
  }
  close(RESULTS);

-      foreach $field (keys %$record){
+      foreach $field (@{$sth->{NAME}}) {