my $test = 1;

#ifdef UNDEF
   $test = 0;
#endif

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