Perl wurzel rechner

[error]

hi
ich möchte sowas in der art wie hier scripten

#!/usr/bin/perl
use warnings;
use strict;

my $zahlenraum = 100;    
my $zahl = int(rand($zahlenraum) + 1);   
                                       
my $zaehler = 0;         

print "Herzlich Willkommen beim Zahlenraten. Du musst nun eine Zahl zwischen 1 und $zahlenraum herausfinden.\n\n";

my $eingabe;     
do {
    ++$zaehler;
    
    print "$zaehler. Tipp: ";
    chomp($eingabe = <STDIN>);
    if ($eingabe == $zahl) {
        print "Richtig!\n";
    } elsif ($eingabe < $zahl) {
        print "Die gesuchte Zahl ist grösser\n";
    } else {
        print "Die gesuchte Zahl ist kleiner\n";
    }
} while ($eingabe != $zahl);

print "Herzlichen Glückwunsch. Du hast $zaehler Versuche gebraucht um die Zahl zu finden.\n";

nur das ich nicht zahlen raten soll sondern damit ich ne zahl eintipp und der computer dann die wurzel von der zahl ausrechnet.


mfg error

[rob00n]

http://moritz.faui2k3.org/blog/perl-...gn-by-contract

Das sollte dir helfen. ^^

[error]

ging aber schnell
THX