#!/usr/bin/perl
#use strict;
use warnings;
use Win32::AD::User;
use Text::CSV;
use Net::LDAP;

my $file = "Users.csv";
my $csv = Text::CSV->new();

open (CSV, "<", $file) or die $!;

while (<CSV>) {
if ($csv-&gt;parse($_)) {
    my @username = $csv->fields();
    my $user = $username[0];
    my $adstring = join('', $user, ',user",',$user, '"');
    my $acdiruser=Win32::AD::User-&gt;new('WinNT://my.domain.EDU/ ',$user);
    $acdiruser-&gt;get_info();
    print join ("\n", $acdiruser-&gt;get_property( dn ));

}
}
close CSV;