in reply to How to include a large number of constants?

Try this.. 

use constant {FAILURE_CONF  => 1,
              FAILURE_EVENT => 2,
              OPEN_REQ      => 3,
              OPEN_CONF     => 4};

[download]
Should simpllify the code a bit, visually speaking.

Grygonos

In Section Seekers of Perl Wisdom