#!/usr/bin/perl -w

use strict;
use English;
use Data::Dumper;

use Net::LDAP;
my $ldap = Net::LDAP->new("ldap://ldapserver.company.com") or die "$EVAL_ERROR";

my $mesg = $ldap->search(
    base => "ou=people,dc=company,dc=com",
    scope => "sub",
    filter => "cn=oracle*",
);

my $struct = $mesg->as_struct;
print Dumper( $struct );