my $Excel = CreateObject OLE 'Excel.Application' || die $!;
$book = $Excel->Workbooks->Open("$file")||die("Can not open $file"); 
$sheet = $book->Worksheets("Jul");
$sheet->Range("D23")->{'Value'}="some tests";
$Excel->ActiveWorkbook->Close(1);
$Excel->Quit();