sub getLDAPInfo
{
        my $targetuser = shift;
        my $ldapuser = "SomeUser";
        my $ldappassword = "SomePassword";
        my $domain = "dc.mycompany.com";
        my $fullname;

        my $ad = Net::LDAP->new($domain) or die "Could not connect!";

        $ad->bind($ldapuser, password=>$ldappassword);
        my $searchbase = 'DC=mycompany,DC=com';
        my $filter = "samaccountname=$targetuser";
     
        my $results = $ad->search(base=>$searchbase,filter=>$filter);

        my $count = $results->count;

        if ($count)
        {
                my @entries = $results->entries;
                foreach my $entry (@entries)
                {
                        $fullname = $entry->get_value('givenname'). " " . $entry->get_value('sn');
                return ($fullname);
        }
        else
        {
                return "";
        }

        $ad->unbind;
}

my $fullname= &getLDAPInfo("JUSER");
print $fullname. "\n";

##</code><code>##

        my $filter = "distinguishedname=$targetuser";

##</code><code>##

my $fullname= &getLDAPInfo("CN=JUSER,OU=ACCT,DC=MYCOMPANY,DC=COM");