use constant TRUE  => 1;
use constant FALSE => 0;

my $TEST = not FALSE;

print $TEST;