in reply to use of strict ....

You probably meant to write 
exit $ERRORS{"CRITITICAL"};

[download]
strict helps you :)

In Section Seekers of Perl Wisdom