#!/usr/bin/perl -w
use strict;
use Net::LDAP;
print "\nEnter the user id :";
my $uid = <STDIN>;
$ldap = Net::LDAP->new("localhost");
$ldap->bind("ou=netgroup,ou=people");
$mesg = $ldap->search(filter=>"(nisNetgroupTriple=\(,$uid,\))", base=>"ou=netgroup,ou=people",attrs=>['dn','cn']);
@entries = $mesg->entries;

foreach $entry (@entries){

      $entry->dump;}