my $Book = $Excel->Workbooks->Open('Book1.xls')
$Book->{Saved}=0;
 $Book->Close();
 $Excel->Quit();