Um, there's no REAL need for explicit "true" and "false" datatypes in Perl. Watch:

if (foo()) { foo() returned a true value }
if (!bar()) { bar() returned a false value }

$DEBUG = 1;
if ($DEBUG) { ... }
[download]

If you really feel the need for 'true' and 'false', then please make this compromise with me:

use constant TRUE => 1;
use constant FALSE => 0;
# ...
$DEBUG = TRUE;
# ...
if ($DEBUG) { ... }
[download]

Please do NOT test for equality with TRUE or equality with FALSE. They are pointless test, and broken in cases of TRUE that aren't '1'.

$_="goto+F.print+chop;\n=yhpaj";F1:eval