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