use strict; my $i=5; do { print"the value of i is :$i\n"; $i--; }until($i<=0);