#!/usr/bin/perl
    use Authen::Simple::NIS;
    use Net::NIS;

my $default_domain = Net::NIS::yp_get_default_domain();
my %nis_hash = ();
%nis_hash->{'domain'} = Net::NIS::yp_get_default_domain();
my $nis = Authen::Simple::NIS->new(%nis_hash);

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