Select Code to Download

foreach $entry (@GILIST) {
    $seq1 = $gb->get_Seq_by_acc("$entry") || die "$entry is not a real
+ accession number.\n";
...
    $specieslist{$entry} = $speciesname;
    print p ("Gi# $entry is a $speciesname nucleotide sequence.\n");
}

    print p ("Gi# $entry is a $specieslist{$entry} nucleotide sequence
+.\n");

foreach $entry (@GILIST) {
    $seq1 = $gb->get_Seq_by_acc("$entry") || die "$entry is not a real
+ accession number.\n";
...
 foreach my $entry (sort keys %specieslist) {
     print p ("GI# $entry is a $specieslist{$entry} nucleotide sequenc
+e.\n");
}

foreach $entry (@GILIST) {
    $seq1 = $gb->get_Seq_by_acc("$entry") || die "$entry is not a real
+ accession number.\n";
...
        print p ("Gi# $entry is a $speciesname nucleotide sequence.\n"
+);
    }
}