Select Code to Download

# Uncomment to enable writing debuging info to logfile
my $debug = 1;
...
}

if ($debug) { print DEBUG locasltime." : This is some example line...\
+n"; }

my $debug = 2;

...
# This is level 1 information
if (something) { print DEBUG "LEVEL 1: moo\n": }