#!perl

use Excel;
my $file = "C:\\perl_proj\\book1.xls";
my $ex = Excel->new('Excel.Application', sub {$_[0]->Quit;}) or die "Oops, cannot start Excel";
my $Book = $ex->Workbooks->Open($file);
my $Sheet1 = $Book->Worksheets(1);
$Book->Windows(1)->{Zoom} = 75;
$Sheet1->Columns->Font->{Size} = 12;
my $Sheet2 = $Book->Worksheets(2);
$Sheet2->Columns->{NumberFormat} = "#,##0.00";
$Book = $ex->Workbooks->Close();