use Net::LDAP::LDIF;
my $ldif = Net::LDAP::LDIF->new('nejms.txt', 'r', onerror=>'die');
while (!$ldif->eof) {
	my $entry = $ldif->read_entry;
	print $entry->get_value('cn'), "=",
		$entry->get_value('orclnetdescstring'), "\n";
}
$ldif->done;