#!/usr/local/bin/perl

print ("Enter a number:\n");
$number = <STDIN>;
chop ($number);
until ($number == 47) {
        print ("Wrong! Try again!\n");
        $number = <STDIN>;
        chop ($number);
}
print ("\aCorrect!\n");
