Ver originalmy $DOMINIO = shift @ARGV;my @ficheros = Existe_Awstats($DOMINIO); if (@ficheros) { print "Existe: @ficheros\n";}else { print "No existe\n";} sub Existe_Awstats { my $DOMINIO = shift; return grep { /$DOMINIO/ } qx(ls /etc/awstats/web/);}