Select Code to Download

use Win32::OLE;
$Win32::OLE::Warn = 3;
...
    $Excel->Workbooks($n)->Close(1, $file, undef);
}
$Excel->Quit();