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