re question 2, read:

perldoc Win32::OLE

and, deep into this dense document, find:

# save and exit
        $book->SaveAs( 'test.xls' );
        undef $book;
        undef $ex;
[download]