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