perl -e 'print "$_ = $ENV{$_}\n" for sort keys %ENV;'

##</code><code>##

$Book->SaveAs('file.xls');