I'm according to Monsignor Tanktalus, but when you really need to do it, think to use constant to enable the debug flag:

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

print ">> $debug $D <<\n\n";
[download]

I'm really known if pragma now, and like it!

20060920 Janitored by Corion: Linkified links as per What shortcuts can I use for linking to other information?