use strict;
use Bio::Perl qw(read_sequence);
my $seq = read_sequence(shift @ARGV);
print $seq->translate()->seq(), "\n";