sub TRUE {return 1}
sub FALSE {return 0}

# Some assignments to $debug, doing something like
# my $debug = TRUE;

if ($debug == FALSE) {
$debug = TRUE;
} else {
$debug = FALSE;
}