use Authen::Radius;

$r = new Authen::Radius(Host => "xxx.xxx.xxx.xxx:1812", Secret => "xxxx");

$s = $r->check_pwd("monitor", "xxxx");
if ($s == 1)
{
    print "Message:Success \n";
    print "Statistic:0 \n";

    $WScript->Quit(0);


}
else
{
    print "Message:Failure \n";
    print "Statistic:1 \n";

    $WScript->Quit(1);
}

exit 0;