Using perl Syntax Highlighting
open(ARCHIVO, ">>prueba2.bat") || die "No se pudo abrir el archivo";
print ARCHIVO "start smscaster.exe -Compose $Variables{'numero'} $Variables{'mensaje'} -Start \n";
close(ARCHIVO);
system("C:/wamp/Apache2/cgi-bin/prueba2.bat");
exit(1);
print ARCHIVO "start smscaster.exe -Compose $Variables{'numero'} $Variables{'mensaje'} -Start \n";
close(ARCHIVO);
system("C:/wamp/Apache2/cgi-bin/prueba2.bat");
exit(1);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4