use strict;
use warnings;
use diagnostics;
use Data::Dumper;

use Net::LDAP::LDIF;

my $ldif = Net::LDAP::LDIF->new( "file.ldif", "r", onerror => 'undef' );

while( not $ldif->eof() ) {
  my $entry = $ldif->read_entry();
  if ( $ldif->error() ) {
    print "Error msg: ",$ldif->error(),"\n";
    print "Error lines:\n",$ldif->error_lines(),"\n";
  }
  else {
    print Dumper($ldif);
  }
}
$ldif->done();