my $excel = Win32::OLE->GetActiveObject('Excel.Application')||die "couldnt get active one";
 	my $workbook = $excel    -> Workbooks -> Add;
 	$workbook->Activate;
	my $sheet    = $workbook -> Sheets(2);
	$sheet -> Cells(1,1) -> {Value} = "This works well";