# check_radius.pl ```Perl #!/usr/bin/perl use Authen::Radius; my $radiusserver = $ARGV[0]; my $radiussecret = $ARGV[1]; my $username = $ARGV[2]; my $password = $ARGV[3]; my $timeout = $ARGV[4]; my $debug = $ARGV[5] ? 1:0; if (! $ARGV[4]) { print "Usage: check_radius.pl []\n"; exit 0; } my $r = new Authen::Radius(Host => $radiusserver, Secret => $radiussecret, TimeOut => $timeout, Debug => $debug); if (! $r) { print "CRITICAL - Radius dead\n"; exit 2; } if ($r->check_pwd($username,$password)) { print "OK - Check ok\n"; exit 0; } else { print "Error: ", $r->strerror(), "\n" if $debug; print "Error: ", $r->get_error(), "\n" if $debug; print "OK - but Authen-Check failed\n"; exit 1; } ```