while ( my $seq = $genbank_obj->next_seq ) {
    for my $feature ( grep { $_->primary_tag eq 'CDS' } $seq->get_SeqFeatures ) {
        unless ( $feature->get_tag_values('locus_tag') ) {
            die "CDS has not locus_tag tag for getting gene name.\n";
        }
        
        my @gene_name = $feature->get_tag_values('locus_tag');
        my $gene_name = $gene_name[0];
        
        unless ( $feature->has_tag('product') ) {
            die "CDS feature has not translation associated.\n";
        }
        
        my @product = $feature->get_tag_values('product');
        
        my $seq = $feature->spliced_seq->seq;
        
        unless ( $feature->has_tag('translation') ) {
            die "CDS feature has not translation associated.\n";
        }
        
        my @pep_seq = $feature->get_tag_values('translation');
        
        my $start = $feature->start;
        my $end = $feature->end;
        my $strand = $feature->strand;
        
        if ($strand == 1 ) {

        print ">$gene_name\n$seq\n";
        print  ">$gene_name\n$pep_seq[0]\n";