use constant UNDEF => 0;

my $test = 1;

if (UNDEF) {
   $test = 0;
}

print "\$test => $test\n";