Select Code to Download

use LWP::UserAgent;
my ($strHttpURL)='https://machinename;
...
else{
print "$strHttpURL not connected");
}

use Net::LDAPS;
use Net::LDAP;
...
 print("LDAP over SSL with ip $strLDAPIpAdd not connected...");
$mesg=$ldaps->unbind;
}