#!/usr/bin/perl -w
$a = 1;
print "In loop: \$a = $a\n" if ($a > 0);