I have this code in perl to guess a number but how can I mak

I have this code in perl to guess a number but how can I make it loop until the correct answer is entered. Like this;

guess my number

Enter your guess: 10

your number is less than my number

Enter your guess: 11

your number is less than my number

Enter your guess: 12

That is it!

--------------------------------CODE----------------------------

#!/usr/bin/perl

# guessnum.pl

use warnings;

use strict;

my $target = 12;

print \"guess my number.. Enter your guess: \";

my $guess = <STDIN>;

if ($target == $guess) {

        print \"That is it!\ \";

        exit;

}

if ($target < $guess) {

        print \"your number is greater than my number\ \";

        exit;

}

if ($target > $guess) {

        print \"your number is less than my number\ \";

        exit;

}

Solution

#!/usr/bin/perl
# guessnum.pl
use warnings;
use strict;

my $target = 12;
print \"Guess my number.. Enter your guess: \";
my $guess = <STDIN>;

while($target != $guess)
{
   if ($target < $guess) {
print \"your number is greater than my number\ \";
   }
   else{
print \"your number is less than my number\ \";
   }
   print \"Enter your next guess: \";
   $guess = <STDIN>;
}
print \"That is it!\ \";