Select Code to Download

use strict;
use Bio::DB::Fasta;
...
    my ($id) = (/^>(\S+)/);  # capture the id string (without the init
+ial ">")
    print ">$id\n", $db->seq( $id ), "\n";
}