use constant DEBUG => 2;
use if DEBUG==2, warnings;

print ">> $debug $D <<\n\n";