my $io = Bio::CUA::SeqIO->new(-file => 'cds.dat');