Anonymous

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

        my $target = 12;
        print "Guess my number\n";
        print "Enter your guess: ";
        chomp (my $guess = <STDIN>);

        while ($guess != $target) {
                if ($guess > $target) {
                        print "My number is smaller, guess again! =)\n";
                }
                if ($guess < $target) {
                        print "My number is bigger, guess again! =) \n";
                }
                $guess = <STDIN>;

        }
        print "You guessed it!";