1
 Abra una instancia de DOSBox . Ahora abra el archivo perl desea leer la entrada de DOSBox 
 2 
 Crear una expresión que le preguntará al usuario para su input: . 
 
 Print " Por favor dénos su opinión. \\ n " , $ entrada = <>; print" introdujo $ input \\ n "; ! 
 
 Si usted está buscando un tipo específico de entrada , asegúrese de que usted no acepta la entrada que no califica , ya que podría romper su script. Puede utilizar la función de "morir" para hacer esto. Si sólo estabas buscando números , se puede cambiar el ejemplo anterior : 
 
 print " Por favor denos su entrada numérica \\ n . " ; $ Entrada = <>; if ( $ entrada = ~ m /( \\ D ) + /) {die "Ha escrito algo más que un número! Guión de terminación \\ n "; } else {print " Introdujo $ input \\ n " ;} 
 
 El ejemplo anterior utiliza una expresión regular para analizar la entrada del usuario . Si encuentra cualquier cosa menos un número, se dará por terminada la secuencia de comandos . El usuario tendrá que correr de nuevo y entrar en la entrada correcta . 
 3 
 Guarde el archivo y salga del editor. Ahora ejecuta el script en DOSBox tecleando su nombre y luego la tecla " Enter". La secuencia de comandos le pedirá que para la entrada. 
 
 
          
