Select Code to Download

# open file in read/write mode
open(my $xlshandle, '+<', $xlsfile) or die "Can't open '$xlsfile' for 
+read/write: $!\n";
...
# insert code to put updated data into $newxls
$newxls->close();
close($xlshandle);

my $newxlsfile = $xlsfile . '.new';
my $newxls = Spreadsheet::WriteExcelXML->new($newxlsfile); # file, NOT
+ handle
...
close($xlshandle);
rename($xlsfile, $xlsfile . '.bak');
rename($newxlsfile, $xlsfile);