#!/usr/bin/perl -w

$i = 0;

while ($i < 10)
 {
   print "Iteration $i.n";

} continue
{