use CGI qw(:standard escapeHTML);
use Net::LDAP;
use Net::LDAP::Constant qw( LDAP_REFERRAL LDAP_CONSTRAINT_VIOLATION LDAP_COMPARE_TRUE);
use URI;
use URI::ldap;
use Date::Manip;
use POSIX qw(strftime);
use Log::Dispatch;
use Log::Dispatch::File;
use Log::Dispatch::Email::MailSendmail;
use HTML::Entities;
use strict;
no strict "vars";