Select Code to Download

   print FILE ">$giName $gssName $definition\n$sequence";

   $giName ||= " ";

   # makes array interpolate with newlines
   local $" = "\n";
...
      # for the array.
      print FILE ">",$giName," ",$gssName," ",$definition,"\n","@seq",
+"\n";
    }