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