#!/usr/bin/perl -wl
use constant FALSE, !TRUE;
use constant TRUE, !FALSE;
use strict;

print "false is \"", FALSE, "\" in string context";
print "false is ", 0+FALSE, " in numeric context";
print "true is ", TRUE;
__END__
output:
false is "" in string context
false is 0 in numeric context
true is 1