perl -w -MNet::LDAP -e '$entry = Net::LDAP->new(q[__HOSTNAME__])->search(filter => q[__FILTER__], base => q[__BASEDN__], scope => q[sub])->shift_entry; print $entry->dump'