#!usr/local/bin/perl

print "\n" ;

print "recuerde los numeros que escriba, seran preguntados luego\n" ;

print "--------------------------------------\n" ;

print "introduzca sus numeros de identificación : " ;

$num1 = <STDIN> ;

chop $num1 ;

until ( $num1 = ~ /^[+-]?\d+$/ ) {

print "no es un numero,porfavor, escribe un numero:\n" ;

$num1 = <STDIN> ;

chop $num1 ;

}

print "perfecto, sigamos el proceso....\n" ;

print "ahora introduce otro: " ;

$num2 = <STDIN> ;

chop $num2 ;

until ( $num2 = ~ /^[+-]?\d+$/ ) {

print "no es un numero, porfavor escriba uno\n" ;

$num2 = <STDIN> ;

chop $num2 ;

}

print "perfecto, sige mas porfavor...\n" ;

print "introduce tu nombre: " ;

$nom = <STDIN> ;

chop $nom ;

print "vale, ahora reintroduzca sus numeros si estos eran validos, primero el primero que introdució:\n" ;

$num3 = <STDIN> ;

chop $num3 ;

print "ahora el segundo numero, porfavor" ;

$num4 = <STDIN> ;

chop $num4 ;

print "hola $nom , tus numeros identificativos son $num3 y $num4\n " ;