Create filter_by_length.pl

Script output fasta records less then the set minimum length.