my $io = Bio::CUA::SeqIO->new($cds);