#!C:/perl/bin

for($number = 1; $number <= 3; $number++)
{
   print "\nLoop number: $number";

   if ($number < 2)
   {
        print "\n\$number is less than 2\n\n";
   }
   elsif ($number > 2)
   {
         print "\n\$number is greater than 2\n\n";
   }
   else
   {
        print "\n\n\$number equals 2\n\n";
   }
}