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;
}
Now you don't need to use 'eq' and just use '==', because
TRUE and FALSE are now subroutines returning numerical values.
--HolyGrail