use Net::LDAP::LDIF;
use Net::LDAP::Entry;
$ldif = Net::LDAP::LDIF->new( "directory.ldif", "r", onerror => 'warn' );

 while( not $ldif->eof ( ) ) {
   $entry = $ldif->read_entry ( );
   if ( $ldif->error ( ) ) {
     print "Error msg: ", $ldif->error ( ), "\n";
     print "Error lines:\n", $ldif->error_lines ( ), "\n";
   } else {
		 print $entry->get_value("sn")."\n";
		 print $entry->get_value("cn")."\n";
		 print $entry->get_value("userPassword")."\n";
		 print $entry->get_value("dn")."\n";
		 
		 @values = $entry->attributes;
  	 print "default: @values\n";
  	 @values = $entry->attributes ( nooptions => 1 );
  	 print "nooptions: @values\n";
   }
 }