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;

##</code><code>##

dn: cn=Test,ou=Foo,o=Bar,c=US
changetype: modify
replace: foo
foo: Bar
 Test123
 Blah
-