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