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