my $directory = 'proteines/';

opendir (DIR, $directory) or die $!;

while (my $file = readdir(DIR)) {
   my $result = `/cursos/BI/bin/ncbiblast/bin/blastall -p tblastn -i proteines/$file -d /cursos/BI/genomes/project_2014/Elephantulus_edwardii/genome.fa -o blasts/$file.blastcomplet`;
}


