my @test = ("mafft", "$file.fasta", "infile", "5", "1", "\n", "y", "q");
system(@test);