foreach my $constname (@constants) {
    {
        no strict 'refs';
        *$constname = sub {
            use strict;
            my ($error, $val) = constant($constname);
            if ($error) { croak $error; }
            return $val;
          }
    }
}