use warnings;
use strict;
use Net::LDAP::LDIF;

my $ldif = Net::LDAP::LDIF->new("test.ldif", "r", onerror=>'die');
while ( not $ldif->eof ) {
	my $entry = $ldif->read_entry;
	print $entry->ldif;
}
$ldif->done;