BioPerl GenBank script