Select Code to Download

#!perl
use strict;
...
$dir =~ s!/!\\!g;
$Book->SaveAs($dir."\\".'updated_'.$excelfile);   
$Book->Close;