$COUNT = 1;
while ($COUNT = 1)
{
  print "What is the number?  ";
  $NUM1 = <STDIN> ;
    if (($NUM1 < 1) || ($NUM1 > 10))
      {
	print "That number is not between 1 and 10.\n";
      }
    else
      {
	chomp ($NUM1);
	$NUM1_COUNT++;
      }
}