#!/usr/bin/perl
use strict;
use warnings;

use Net::NIS;
use Authen::Simple::NIS;

my $default_domain = Net::NIS::yp_get_default_domain();
my $nis = Authen::Simple::NIS->new(domain => $default_domain);

if ($nis->authenticate("user", "testpass")) {
    print "Success\n"
}
print "done\n";