import schema ldif with Net::LDAPI and Authen::SASL

ldapi.pl

#!/usr/bin/env perl

# USAGE: 
# perl ldapi.pl schema.ldif
# will have the same result as running
# ldapadd -Y EXTERNAL -H ldapi:/// -f schema.ldif

use Modern::Perl;

use Net::LDAP;
use Authen::SASL;
use Net::LDAP::LDIF;

my $ldapi = Net::LDAP->new("ldapi://");

$ldapi->bind(
    undef,
    sasl => Authen::SASL->new(mechanism => 'EXTERNAL')
                        ->client_new("ldap", "localhost"),
);

my $ldif = Net::LDAP::LDIF->new($ARGV[0], "r", onerror => "die");

my $entry = $ldif->read_entry;
say $entry->ldif;

my $msg = $ldapi->add($entry);
warn $msg->error if $msg->code;