#!/usr/bin/perl -w
use strict;
use warnings;
use constant TRUE => 1;
use constant FALSE => 1;
my $a;
if ($a == TRUE) { print "true\n" }