use Win32::OLE;
$Excel = Win32::OLE->new("Excel.Application") || die "Could not start Excel.Application\n";
$Excel->{visible} = 1;
# get a new workbook
$book =$Excel->Workbooks->Add;
$sheet = $book->Worksheets(1);
$sheet->Cells(1,2)->{Value} ="test";