$excel = CreateObject OLE "Excel.Application" || die "CreateObject : $!\n";
$excel -> {Visible}=1;
$excelfile2 = $excel -> Workbooks -> Open("c:\\sheetA.xls");
$excelfile = $excel -> Workbooks -> Open("c:\\sheetB.xls");
$xls4 = $excelfile -> Worksheets(1);
$xls5 = $excelfile2 -> Worksheets(1);


$xls5 -> Range ("H58:H105") -> Copy;
$xls4 -> Cells (9, 15) -> {PasteSpecial} ="Paste=xlValues, Operation=xlNone, SkipBlanks=False, Transpose=False";
$xls4 -> Cells (9, 14) -> Select;