#!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";
}
}