my $test = 1;

#ifdef UNDEF
   $test = 0;
#endif

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

##</code><code>##

use constant UNDEF => 0;

my $test = 1;

if (UNDEF) {
   $test = 0;
}

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