Select Code to Download

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
...
$Word->ActiveDocument->SaveAs({FileName => $File2});

$Word->Quit();