#!/usr/bin/env perl

use Net::LDAP;

my $user = $ENV{LDAP_USER};
my $pass = $ENV{LDAP_PASS};
my $host = $ENV{LDAP_HOST};

my $ldap = Net::LDAP->new($host);
die "can't connect to $host $!" unless $ldap;

$res = $ldap->bind($user, password => $pass);

print "User: " . $user . "\n";
print "Code: " . $res->code . "\n";
print "Err:  " . $res->error . "\n";