#!/usr/bin/perl
use Net::LDAP qw(:all);


 $ldap = Net::LDAP->new('pluto') or die "$@";


 $ldap->bind;    # an anonymous bind
 my $base = "c=us";
 my @Attrs = ();


my $gettem = "harnish";
$result = LDAPsearch($ldap,"sn=" . $gettem,\@Attrs);
@entries = $result->entries;
foreach $entr (@entries)
{
  $phone = $entr->get_value('telephoneNumber');
  $user = $entr->get_value('cn');
  $email = $entr->get_value('mail');

 print "$user\n";
 print "$email\n";
 print "$phone\n";
}

 undef @selected;


 $ldap->unbind;   # take down session
sub LDAPsearch
        {
          my ($ldap,$searchString,$attrs) = @_ ;
          my $result = $ldap->search (
                base    => "$base",
                scope   => "sub",
                filter  => "$searchString",
                attrs   =>  $attrs,
                sizelimit => $size_limit
                );
 }

##</code><code>##

ARRAY(0x1f6b378)
ARRAY(0x1f6aa70)
ARRAY(0x1f6ad7c)