Select Code to Download

######################################################################
+#
# DEBUG       ==0 {no debugging}, ==1 {debugging}, >=2 {greater debugg
+ing}
...
       print $DLOG "############################# ".scalar localtime()
+."\nStart. . . \n";
    }
    else { open $DLOG, ">>", "/dev/null" ); }

    for my $key { sort keys %Hash )
    {   ... do something ...
        if ( $Debug >= 4 ) { print $DLOG "Hash:\t$key\t|$Hash{$key}|\n
+"; }
    }