# get a new workbook
$book = $ex->Workbooks->Add;

##</code><code>##

$sheet = $book->Worksheets(1);

##</code><code>##

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