Statement Perl

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