$login='mylogin';
$pass='mypass';

use Authen::Radius;
$r = new Authen::Radius(Host => 'myhostname', Secret => 'mysecret');
$response=$r->check_pwd($login, $pass);

if ($response eq "1"){
  #successful
}else{
  #unsuccessful
}