sub search {
    my ( $db, @keywords ) = @_;
    my ( $gb, $query, $seqio );

    $gb     = new Bio::DB::GenBank;
    $query  = Bio::DB::Query::GenBank->new(
				       -query => join(" ", @keywords),
				       -db    => $db
				       );

    $seqio  = $gb->get_Stream_by_query($query);
    
    print "Search for [", join(" ", @keywords), "] on $db returned ", $query->count, " results.\n";

    while ( my $seq = $seqio->next_seq() ) {
        # do something with the data
    }
}