#!/usr/bin/perl

# while
print "while example:\n";

$count = 1;

while($count <= 10)
{

  print "$count\n";
  $count++; # $count = $count + 1;

}

print "\n";

# until
print "until example:\n";

$count = 1;

until($count > 10)
{

  print "$count\n";
  $count++; # $count = $count + 1;

}

print "\n";

# do while
print "do while example:\n";

$count = 1;

do
{

  print "$count\n";
  $count++; # $count = $count + 1;

}
while($count < 1);

print "\n";

# do until
print "do until example:\n";

$count = 1;

do
{

  print "$count\n";
  $count++; # $count = $count + 1;

}
until($count > 1);

print "\n";