use warnings;
use strict;
use Net::LDAPS;
use IO::Socket::SSL qw(debug3);
use Data::Dumper;

my ($hostname, $port, $localaddr, $clientcert, $clientkey, $verify, $cafile);

$hostname = $ARGV[0];
$port = $ARGV[1];
$localaddr = $ARGV[2];
$clientcert = $ARGV[3];
$clientkey = $ARGV[4];
$verify = $ARGV[5],
$cafile = $ARGV[6];

&get_ldaps_connection_object;
												
##print "\nLDAPS ::: $ldaps\n";

##print Dumper($ldaps);

sub get_ldaps_connection_object
{
	my $ldaps = Net::LDAPS->new("$hostname",
                             port => "636",
                             timeout => 120,
                             scheme => 'ldaps',							 
			     localaddr => '',
			     clientcert => '',
                             clientkey => '',
			     verify => "require",
			     cafile => "$cafile") or die "$@";
												
	return $ldaps;
	
}