Working version – tested w 3.5.1

#!/usr/bin/perl -w
# check_dcm.pl

#define command{
# command_name check_dcm
# command_line /usr/lib/nagios/plugins/check_dcm -a $HOSTADDRESS$ -n $ARG1$ -p $ARG2$
# }

use Getopt::Std;
use strict;
use lib “/usr/lib/nagios/plugins”; ## directory where I can find “utils.pm”
use utils qw{%ERRORS};

my $echoscu = “/usr/bin/echoscu”;

my ($USAGE) = ult =~ /Association Rejected/) {
print “CRITICAL: $resultn”;
exit($ERRORS{‘CRITICAL’});
}

}

print “CRITICAL: Indeterminate Error.n”;
exit($ERRORS{‘CRITICAL’});