Select Code to Download

    print $xml->{gene_seq}{$id}{'startpos'}, "\n";

#!/usr/bin/perl -w
...
 </gene>
</many_genes>