Help for this page

Select Code to Download


  1. or download this
    use constant DEBUG => 0;
print STDERR "foo = $foo\n" if DEBUG;
  2. or download this
    use Readonly;
Readonly::Scalar $DEBUG => 0;
print STDERR "foo = $foo\n" if $DEBUG;