my $debug = 1;
...
if ($debug>=1) { print "DEBUG:  \$variable = $variable\n" }