gistfile1.txt

#!/usr/bin/env perl
use strict;
use Net::LDAP;

my $ldap = Net::LDAP->new( 'ldaps://faraday.eftdomain.net:636' ) or die "$@";
my $mesg = $ldap->bind( "uid=$ENV{'LOGNAME'},ou=People,dc=eftdomain,dc=net", password => "$ENV{'LDAP_PASSWORD'}");
$mesg = $ldap->search( base => 'ou=Card@Once,dc=dev,dc=eftdomain,dc=net', filter => "(ou=erik*)");
foreach my $entry ($mesg->entries) { 
    $entry->dump; 
    $mesg = $ldap->delete($entry->dn);
}