#!/usr/bin/perl
$COUNT = 1;
if ($COUNT = 1)
  {
    print "What is the number?  ";
    $NUM1 = <STDIN> ;
    chomp ($NUM1);
  }
elsif
{
$OCT1_COUNT++;
}
else (($NUM1 < 1) && ($NUM1 > 10))
{
print "That number is not between 1 and 10.\n";
}

##</code><code>##

$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++;
      }
}