use strict;
use warnings;
use Data::Dumper;
use Bio::Tools::CodonTable;
use Bio::Seq;

my $dna = 'ATGAAAGGAACATCCATTTTATTCAAAGCACCTCCAAACCTGCAATCCTAAGTTCCAGGCAACTCAATCCCAAAAATCCACTGTAGATGCCCAAAGGCTGGGGTGTTCGGTCTTCAACATTTTTGCCTTTGTGGCTCCCAGTCAAGATAGAGCTGCACCAAGTCCAATTCCATTCCTCATCACAGATGATTTTTTCTACTTTAAGATCAGAACTATACAAGCTTCTTGCTTTGTGTCAGCATGCTGTTGTACCCATGGGCAAATTCTTAGGTAAGACAAAAACACAGTCCCAAGGGCAGGTAGTAATTTTTTCAGAAAAAGGTAAGGCAATCATTTATCTCAGTCTGCCCAGGACAGTCCCAATTTACACATGTATATTCTCCCAATCTGTAGGCTGTCTTTTCATTTTGTTGATTATTTCACTTAATTTTTTATTATTTATTTATTTTATAGAGACAGATCTCATTATGTTGCCCAGGGTGATCCTTGATCTCCTGGCCTCAAGTGATCCTCCAACCTTGGTCTCCCAAAGTGCTGGGATTACAGATGTGAACTACCACACCCAGTCAACGTGCAGAAGGTTTTCAGTTTGATGTAGTCTGATGTAGTCTCATGTATTTATCCTTCTTGTTGTTGCCTGAGCTTTTGGTGTGATATCCAAAAATATCATTGCCAAGATCAATATCAAGAAACTTTCCCCCTATGTTTCTTACAGAAATTTTATGGTTTCAGATTTTTCATCCATTTTGAGTATATTTGTGTGTATGATGTAAGATAAGGGTCCAGTCTCCCCAGTGTTGGATATCCAATTTTCATAACACCATTTATTGAAGAGATTATTCTTTCTCCACTGTGTTTTCTTGATGTCCTTGTCAAAAATTAGTTGACTTTTATATGCTTGGGTTTATTTCTGGGCTCTATTCTGTTTCATTGCTTTACATCTCTGTTTTCATGCCAGTGCCACAGTGTTTTGATTACTATAGCTTTGTAATATAATTTGAAATCAGAATGTGTAATACCTATAACTTTGTTTTTTGCTCTAAAGATTTATTTATTTATTTATTTTTGCCATTTCAGGTCTTTTGTGGTTTCATATGAATTTCAGAATTGTTTTTCCTATTTCTGTGAAAAATGCCATTGACATTTTGATAGGGATTGTGTTGAATCTATATATTGCTTTGGATAGTATGGATG';

my $seq_obj = Bio::Seq->new(
    -seq => $dna,
    -alphabet => 'dna' );

my $prot_obj = $seq_obj->translate(-complete => 1); 

print $prot_obj->seq, "\n";

##</code><code>##

MKGTSILFKAPPNLQS-completeVPGNSIPKIHCRCPKAGVFGLQHFCLCGSQSR-completeSCTKSNSIPHHR-completeFFLL-completeDQNYTSFLLCVSMLLYPWANS-completeVRQKHSPKGR-complete-completeFFQKKVRQSFISVCPGQSQFTHVYSPNL-completeAVFSFC-completeLFHLIFYYLFIL-completeRQISLCCPG-completeSLISWPQVILQPWSPKVLGLQM-completeTTTPSQRAEGFQFDVV-completeCSLMYLSFLLLPELLV-completeYPKISLPRSISRNFPPMFLTEILWFQIFHPF-completeVYLCV-completeCKIRVQSPQCWISNFHNTIY-completeRDYSFSTVFS-completeCPCQKLVDFYMLGFISGLYSVSLLYISVFMPVPQCFDYYSFVI-completeFEIRMCNTYNFVFCSKDLFIYLFLPFQVFCGFI-completeISELFFLFL-completeKMPLTF-complete-completeGLC-completeIYILLWIVWM

##</code><code>##

Perl version v5.10.0
BioPerl 1.2.3