Select Code to Download

$debug = bungee;

...
else {
  $debug = bungee;
}

if ($debug) {
  # $debug is true
...

$debug = 1;
$debug = !$debug;  # flip-flop

package boolean;

...

sub new { bless [ $_[1] ? 1 : 0 ], $_[0] }
sub flip { $_[0][0] = 1 - $_[0][0] }

use boolean;

...
print "hi\n" if $debug;
$debug->flip;
print "bye\n" if $debug;