$Book = $excel->workbooks->Open("excl1.xls");
$Book1 = $excel->workbooks->open("excl2.xls");
$sheet1 = $Book->worksheets->Add({After=>$Book1->worksheets(1)});