use strict;
use Bio::Seq;
my $seq;
$seq = Bio::Seq->new(-seq => "acgactagcaattcaca");
print $seq->translate()->seq(), "\n";