Language Basics Perl

#!/usr/bin/perl -w
$i = 0;
until ($i >= 10) {
   print "Iteration $i.\n";
   $i++;
}