use strict 'vars';
use OLE;
use Win32::NetAdmin;
use Win32::AdminMisc;
my @Domains = ('Dom_UK','Dom_US');
my $xl = CreateObject OLE 'Excel.Application' || die $!;
my $workbook = $xl->Workbooks->Open("C:\\myfiles\\test.xls");
my $worksheet = $workbook->Worksheets(1);
my $xls = $worksheet->Range("A1:B10000")->{'Value'};
my @DataLst;
my $count=0;
for (@$xls)
{
	print ++$count." @$_\n";
}