Help for this page

Select Code to Download


  1. or download this
    my $test = 1;

...
#endif

print "\$test => $test\n";
  2. or download this
    use constant UNDEF => 0;

...
}

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