extracting CDS location from Genbank

Help.  I'm very new to perl and bioperl.  Basically I need to extract the location of each CDS in a genbank entry e.g.103...120 and export them to an output file as a list.  How would I do this?

Your help would be much appreciated!