Select Code to Download

#use local so that the setting doesn't interfere with
#other places you might want to read in data.
...
  $k =~ s/ / gid=/;
  print ">$k\n" . join("\n", sort @$v) . "\n";
}