my $organitzeixionplis = `mkdir genwise`;
my $organitzeixionplis2 = `mkdir t-coffeefromgenwise`;
opendir (SUB, "fastasubseq");
while (my $fastasub = readdir(SUB)){
    next if ($fastasub =~ m/^\./);
    my $esticcansat = $fastasub;
    $esticcansat =~ s/\.blast.fastasubseq//g;
    print "$esticcansat";
    opendir (PROT, "proteines");
    while (my $query = readdir(PROT)){
	next if ($query =~ m/^\./);
	if ($query eq $esticcansat){
	    my $export = `export PATH=/cursos/BI/bin:$PATH`;
	    my $export2 = `export WISECONFIGDIR=/cursos/BI/soft/wise-2.2.0/wisecfg`;
	    my $alloro = `genewise -pep -pretty -cdna -gff proteines/$query fastasubseq/$fastasub > genwise/$query.wise.fa`;
	}
    }
}

