#!/usr/bin/perl -w
use strict;
use Net::LDAP;

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

$ldap->bind ;    # an anonymous bind

my $mesg = $ldap->search (  # perform a search
		       base   => "ou=People,dc=jonas,dc=rit,dc=se",
#		       filter => "(objectclass=*)"
		       filter => "(uid=*)"
		      );

$mesg->code && die $mesg->error;

foreach my $entry ($mesg->all_entries) { $entry->dump; }

$ldap->unbind;   # take down session