#!/usr/bin/perl
# Ex4_2.plx
use warnings;
use strict;

my $target = 73;
print "Odgadnij moj liczb!\n";
print "Co proponujesz? ";
my $guess = <STDIN>;

while ($guess  !=  $target) {

    if ($guess > $target){
         print "Twoja liczba jest wiksza ni moja. Odgaduj ponownie: \n";
    }

    if ($guess < $target){
         print "Twoja liczba jest mniejsza ni moja. Odgaduj ponownie: \n";
    }

    $guess  =  <STDIN>;
}
print "Zgadza si! Zgade poprawnie !\n";