my $LDIF;
unless (open ($LDIF, "<", $ldifFile)) {
  die "Error in reading '$ldifFile': $!\n";
}
else {
  local $/ = "\n\n"; # set input record separator to \n\n

  while (my $object = <$LDIF>) {
    chomp($object);
    $object =~ s/\n //g; # kill continuation lines
    print $object, "\n\n";
  } # while

  close ($LDIF);
} # else