or download this
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
use Spreadsheet::WriteExcel;
...
my $parser = Spreadsheet::ParseExcel::SaveParser->new();
my $template = $parser->Parse('test.xls');
$template->SaveAs('test.xls');