use strict;
use warnings;
use lib qw/lib/;
use Net::LDAP::Entry;
use Net::LDAP::LDIF;

my $LDIF_INPUT_FILE = $ARGV[0] || "./ldif_test_dump.ldif";

my $ldif = Net::LDAP::LDIF->new($LDIF_INPUT_FILE, "r");

my $entry = undef;
my $cn = "";
my $phone_number = "";
while (!($ldif->eof())) {

    $entry = $ldif->read_entry();

    if ($ldif->error()) {

        print("Error msg: " . $ldif->error() . "\n");
        print("Error lines:\n" . $ldif->error_lines() . "\n");

    }
    else {

        $entry->dump();

    }

}

$ldif->done();