#!/usr/bin/perl
use strict;
use warnings;

my $count = 0;

# This is like a while loop but the loop continues as long as the condition is false
until ($count == 10)
{
    print "count $count does not equal '10'\n";

    # increment $count
    ++$count;
}

print "loop completed because count = $count\n";