#!/usr/bin/perl

$numero = rand(100);

until ($entrada == $numero) {

	print "Introduzca un numero del 1 al cien";

	$entrada = <STDIN>;
	
	if ($entrada < $numero) {

		print "El numero que has introducido es mas pequeño que MI numero :( ";

	}

	elsif ($entrada > $numero) {

		print "Tu numero es mas grande que el MIO :(";

	}

}

print "Has acertado!!";

#!/usr/bin/perl

$numero = rand(100);

until ($entrada == $numero) {

	print "Introduzca un numero del 1 al cien\n\n";

	$entrada = <STDIN>;

	chomp($entrada);
	
	if ($entrada < $numero) {

		print "El numero que has introducido es mas pequeño que MI numero :( \n\n";

	}

	elsif ($entrada > $numero) {

		print "Tu numero es mas grande que el MIO :( \n\n";

	}

}

print "Has acertado!!";