#!/usr/bin/perl -w

use Net::LDAP qw(:all);
use Net::LDAP::Entry;
use Net::LDAP::LDIF;
use Net::LDAP::Util qw(ldap_error_text);
use strict;

$| = 1;

my $ldap_server = "your.ldap.server.here";
my $basedn      = "your.base.dn.here";
my $binddn      = "your.bind.dn.here";
my $password    = "your.ldap.password.here";

my $ldap = Net::LDAP->new($ldap_server) or die ( $@ . "\n" );
my $msg = $ldap->bind( $binddn, password => $password );
my $scope = "base";

my $filter = "(objectClass=*)";

my $searchobj = $ldap->search(
    base     => $basedn,
    filter   => $filter,
    callback => \&process
);
die ( "Bad search: " . ldap_error_text( $searchobj->code() ) )
  if ( $searchobj->code() );

sub process {
    my $mesg = shift;
    my $obj  = shift;
    if ( !$obj ) {
        # Search complete
    }
    else {
        my $dn = $obj->dn();
        {
            my @parts = ();
            print( 'dn: ', $dn, "\n" );
            foreach my $attr ( sort( { lc($a) cmp lc($b) } 
              $obj->attributes ) ) {
                print( join ( ': ', $attr, $obj->get_value($attr) ), 
                  "\n" );
            }
            print( "\n" );
        }
        $mesg->pop_entry();
    }
}