perl test-format.pl *.fasta > test.out