#!/usr/bin/perl
use strict;
my $number;
while ( $number != 10 ) {
        printf("Please, the number 10: ");
        $number = <STDIN>;
}