use OLE;
        $excel = CreateObject OLE 'Excel.Application'
               or warn "Couldn't create new instance of Excel App!!";
        $excel->Workbooks->Open( 'd:\travail\admin\perl\test.xls' );
        $excel->Workbooks(1)->Worksheets('Feuil1')->Cells(1,1)->{Value} = 'foo';
        $excel->Workbooks(1)->Worksheets('Feuil1')->Cells(1,2)->{Value} = 'bar';
        $excel->Save();
        $excel->Quit();