#!C:/perl/bin

$loopcounter = 1;

while ($loopcounter < 10)
{
    print "loop count = $loopcounter ";
    $loopcounter++
}

$loopcounter = 1;

print "\n\nThe Until Loop:\n";

until ($loopcounter > 10)
{
    print "loop count = $loopcounter ";
    $loopcounter++
}