Help for this page

Select Code to Download


  1. or download this
    package ConfigThisJunk;
use strict;
...
use constant DEBUG => 1;

1;
  2. or download this
    use strict;
use warnings;
...

my $x = 123;
print("debug: x is $x\n") if DEBUG;
  3. or download this
    package ConfigThisJunk;
use strict;
...
}

1;
  4. or download this
    use strict;
use warnings;
...

my $x = 123;
print("debug: x is $x\n") if DEBUG;