use v5.16.3;
use strict;
#Zahlenraten

my $toguess = rand(99); #Zufallsvariable
$toguess =~ s/^(.*?)\..*$/$1/ ; #runden auf 0 Nachkommestellen


print "Bitte geben Sie eine ganze Zahl zwischen 0 und 99 ein \n";
my $zaehler = 1;
my $variable;

while ($toguess =! $variable) {

	my $variable = <STDIN>;
	if ($variable<0 || $variable != int($variable)) {
		print "Ungültige Eingabe"
		}
	
	if ($toguess == $variable){
		print "Sie haben richtig geraten,der toguess-Wert war: $toguess";
		print "Sie benötigten $zaehler Versuche.";	
	} #end if
	if ($toguess > $variable) {
		print "Die gesuche Zahl ist größer! \n
		Bitte geben Sie eine neue Zahl ein";
		$zaehler++;
	} # end if
	if ($toguess < $variable) {
		print "Die gesuche Zahl ist kleiner! \n
		Bitte geben Sie eine neue Zahl ein";
		$zaehler++;
	} # end if
	
} # end for