#!c:/perl/bin/perl.exe

use strict;
use warnings;
use Win32::OLE qw(in with);

use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;


open (OUTPUT,">>","c:/assess/output.txt");
 
my $Excel = Win32::OLE->GetActiveObject
	('Excel.Application')
		|| 
Win32::OLE->new('Excel.Application', 'Quit'); 

my $Book = $Excel->Workbooks->Open
("C:/assess/assessment.xls"); 

my $Sheet = $Book->Worksheets(1); 

my $LastRow = $Sheet->UsedRange->Find({What=>"*",
     SearchDirection=>xlPrevious,
     SearchOrder=>xlByRows})->{Row};

my $array = $Sheet->Range("B2:"."F".$LastRow)->{'Value'}; 
foreach my $ref_array (@$array) { 
foreach my $scalar (@$ref_array) {
$scalar =~ s/,//;
print OUTPUT "$scalar,";
}
print OUTPUT "\n";
}
$Book->Close;