This is a Perl script to discover sequence motifs in a set of fasta alignments in a folder using dreme.