Here are the first lines

use Net::LDAP;

$ldap = Net::LDAP->new('ip address') or die("Could not get to server")
+;

# bind to a directory with dn and password
$mesg = $ldap->bind( 'user dn',
                      password => 'password'
                   );
[download]

the problem is I really don't know how to code in perl, someone wrote this script and left it with me. I appreciate the suggestions but I am not familiar with some of the things you guys have mentioned. This ends up exporting a 254mb file and gets out of memory. Its 160k users with attributes.