use Spreadsheet::ParseExcel::SaveParser;
use POSIX qw/strftime/;

my $parser = Spreadsheet::ParseExcel::SaveParser->new();
my $readxls = $parser->Parse('perl_1.xls');

my $worksheet = $readxls->worksheet('sum-base');

my $sw_workbook = $readxls->SaveAs('perl_2.xls');



   $worksheet= $sw_workbook->set_column(2, 2, 10);