use strict;

my $zufallszahl;
my $eingabe;
my $a;

sub subzahlen(){
    my $rand = int (1+rand(6));
    print $rand;
    return $rand; 
}

$zufallszahl = subzahlen;
print $zufallszahl; 

print "Zufallszahl eingeben!";

while($zufallszahl != ($eingabe = <STDIN>)) {
    print "Zufallszahl falsch, bitte erneut eingeben!";
    if($zufallszahl<$eingabe) {
        print "Zu klein";
    }
    if($zufallszahl>$eingabe) {
        print "Zu groß";
    }
}