use Authen::SimplePam;
my $auth = Authen::SimplePam->new();

my $result = $auth->auth_user($username, $password, 'login');
if ( $result == 1 ) {
  print 'User logged in OK!'
}
else {
  print 'Login failed: ',$auth->result2string($result);
}