use Win32;
use Win32::OLE;
$excelFile = "c:\\perl\_scripts\\printVersions\\dest\\NMSPrintVersions.xls";
$xlApp = Win32::OLE->new('Excel.Application');
$xlApp->{Visible} = 0;
$xlBook = $xlApp->Workbooks->Add;
$sheet = $xlBook->ActiveSheet;
$range = $xlBook->ActiveSheet->Range("A1:C1");
$title = ["FILENAME","VERSION","DATEUPDATED"];
$range ->{value} = $title;
$sheet->Columns("B:B") -> {NumberFormat} = "#0.0";
$count=1;
foreach (@array) {
	($one, $two, $three) = split('\,', $_);
	$mydata = ["$one", "$two", "$three"];
	$count++;
	$range = $xlBook->ActiveSheet->Range("A$count:C$count");
	$range->{Value} = $mydata
}

unlink ($excelFile);
#$xlBook->SaveAs($excelFile);
$xlBook->SaveAs({Filename=>"$excelFile",FileFormat=>xlExcel9795});
$xlBook->Close();
$xlApp->Quit();