Przykładowy skrypt napisany w języku Perl, który losuje liczbę z przedziału od 1 do 10, a następnie prosi użytkownika o podanie swojej liczby

Treść założeń:
Napisz program, który losuje liczbę z przedziału od 1 do 10, a następnie prosi użytkownika o podanie swojej liczby.
Jeżeli użytkownik nie zgadnie, powinien zobaczyć odpowiedni komunikat: za dużo, za mało.
Zgadywanie odbywa się do skutku, tzn. do momentu odgadnięcia przez użytkownika liczby wylosowanej przez komputer.

#!D:/Perl/bin/perl.exe -w
#Napisz program, który losuje liczbę z przedziału od 1 do 10, a następnie prosi użytkownika o podanie swojej liczby.
#Jeżeli użytkownik nie zgadnie, powinien zobaczyć odpowiedni komunikat: za dużo, za mało.
#Zgadywanie odbywa się do skutku, tzn. do momentu odgadnięcia przez użytkownika liczby wylosowanej przez komputer.

$rand = int(rand(10));
print "Zgadnij co wylosowalem!\n";
do{
   $strzal = ;
   chop($strzal);
   if($strzal < $rand){print "za malo\n";}
   if($strzal > $rand){print "za duzo\n";}
   }while($rand != $strzal);
print "Trafiles, to byla liczba $rand\n";