use Bio::Seq;

my $seq = Bio::Seq->new(-seq        => 'atccatccctttaat',
                        -display_id => 'Sequence1',
                        -alphabet   => 'dna');
my $prot = $seq->translate;
print 'Translated sequence is: ',$prot->seq,"\n";