perl脚本：cds序列转换为pep

#!/usr/bin/env perl
use strict;
use warnings;

sub TranslateDNAFile(){
use Bio::SeqIO;
(my $infile,my $outfile)=@_;
　　my $in=Bio::SeqIO->new(-file=>"$infile",-format=>"fasta");
　　my $out=Bio::SeqIO->new(-file=>">$outfile", -format=>"fasta");
　　while (my $seq=$in->next_seq()){
　　$out->write_seq($seq->translate);
}
}
my $DNAfile="in_cds";
my $pepfile="out_pep";
&TranslateDNAFile($DNAfile,$pepfile);