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