my $execstr = "mafft $file.fasta infile 5 1";
print "$execstr\n";
# system($execstr);