True and false aren't "values" in Perl. There is no boolean datatype. That is why you get errors when you use strict If you want to do it more elegantly and still use the "True" and "False" things, you could do something like this:

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;
}
[download]

Now you don't need to use 'eq' and just use '==', because TRUE and FALSE are now subroutines returning numerical values.

--HolyGrail