use strict;
require constant;

while (<DATA>)
{
    if (/^(\w+);(\d+);$/)
    {
        #eval "use constant $1 => $2";
        constant->import({$1 => $2});
    }
}

print MEMINUSEWAR();

__DATA__
MEMINUSEWAR;2000000;