Perl auth pam

Идентификация пользователя в perl через pam. У меня настроен apache на аутентификацию через pam, поэтому пользуюсь им.


#!/usr/bin/perl
use Authen::Simple::PAM;
use warnings;
use strict;
use Term::ReadPassword;

print "Enter username please:\n";
chomp(my $username = );
my $password = read_password("Enter password please:");

my $pam = Authen::Simple::PAM->new(
service => 'apached' # или любой другой сервис, который настроен на аутентификацию через pam
);

if ( $pam->authenticate( $username, $password ) ) {
# successfull authentication
print "Cool!!";
} else {
print "Houston, we have a problem!";
}