$debug and print
    1 == $debug ? "LEVEL 1: moo\n" :
    2 == $debug ? "LEVEL 2: foo\n" :
    "LEVEL 3: bar\n";