Statement Perl

#!/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);