Select Code to Download

package lexconstants;

...
    my ($name) = @_;
    (caller(0))[10]{$name} or warn "Undefined constant $name..."
}