#!/usr/bin/perl -w

use strict;

my $zufallszahl;
my $eingabe;

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

$zufallszahl = subzahlen;
print $zufallszahl; 

print "Zufallszahl eingeben!";

while(chomp ($eingabe = <STDIN>)) {
    last if($eingabe == $zufallszahl);
    if($zufallszahl<$eingabe) {
        print "Zu klein";
    }
    if($zufallszahl>$eingabe) {
        print "Zu grofl";
    }
}