#!/usr/bin/perl -w
$a = 0;
do {
    print "In loop: \$a = $a\n";
    $a++;
} while ($a <= 10);