use FindBin qw($Bin $Script); use lib "$FindBin::Bin/../lib"; use strict; use warnings; use Text::CSV; use CGI; use CGI::Session; use Net::LDAP; use DBI; use LWP::Simple;