$excel = Win32::OLE->new('Excel.Application', 'Quit');
$workbook = $excel->Workbooks->Open<copied file name>)
$worksheet = $excel->ActiveWorkbook->Worksheets(“sheet1”);

##</code><code>##

$excel->Workbooks(1)->SaveAs(<copied file name>)   or ($excel_res = 0, $ew_message = "Could not save spreadsheet <copied file name>);
$en_num = Win32::GetLastError();
$en_err = "message <" . Win32::FormatMessage($en_num) . "> number <" . $en_num . ">";
$ew_message = "<" . $ew_message . "> is just after saving part file\n" .
		"system error text <$en_err>\n";