Help for this page

Select Code to Download


  1. or download this
     if ($_ =~/^(\w+);(\d+);$/ && $_ !~/^\#/) {
  print "DEBUG: use constant $1 => $2;\n";
  eval "use constant $1 => $2";
  #...
  2. or download this
    use strict;
require constant;
...

__DATA__
MEMINUSEWAR;2000000;