bioperl script for number of CDS, average length and percentage coding

Question

[samuel.medi]

Hello guys,

am quite a beginner in using bioperl and linux but then i have to analyse these bacterial strains, so here is the question, can any one who knows a bioperl script for determining how many coding sequences , their average length and the coding percentage? am working with gene fasta, and multi fasta files.?

[bio_boris]

What have you come up with already using bioperl?