#!/usr/bin/perl -w
$a = -1;
# print "Before entering: \$a = $a\n";
for ($a = 0; $a <= 10; $a++) {
    print "In loop: \$a = $a\n";
}
# print "Free at last: \$a = $a\n";