$DEBUG = 0;
...
print "foo\n" if $DEBUG;