use Win32::ADUtils;

my $OU 	             = GetDefaultNamingContext();
my $LDAPOU           = "<LDAP://$OU>";
my $LDAPFilter       = "(objectCategory=Person)";
my $LDAPFields       = "givenName,sn,sAMAccountName,description";
my $LDAPScope        = "SubTree";
my $LDAPSearchString = "$LDAPOU;$LDAPFilter;$LDAPFields;$LDAPScope";

my $Users            = ADSearchArray($LDAPSearchString);

foreach my $user (@{$Users}) {
	print "$user->{givenName}\n";
	print "$user->{sn}\n";
	print "$user->{sAMAccountName}\n";
	print "$user->{description}->[0]\n";
	print "\n===============\n\n";
}