$excel->{DisplayAlerts}=0;   

$excel_res = 1;
$excel->Workbooks(1)->SaveAs($new_spreadsheet)  or ($excel_res = 0, $ew_message = "Could not save spreadsheet");

$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";

print "$ew_message\n";

$excel->{DisplayAlerts}=1;