Do .. while statement
#!/usr/bin/perl -w use strict; my $i = 1; print "starting do...while:\n"; do { print " the value of \$i: $i\n"; $i++; } while ($i < 6);