#!/usr/bin/perl -w                                                                                                                            
use strict;

opendir (my $blastiandir,"./");
my @blastiandirs = readdir $blastiandir;
closedir $blastiandir;


foreach my $archivo (@blastiandirs){
    system ("cat $archivo > $archivo.txt");
}
