use constant DEBUG => 0;
print STDERR "foo = $foo\n" if DEBUG;