use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

    # Open the template with SaveParser
    my $parser   = new Spreadsheet::ParseExcel::SaveParser;
    my $template = $parser->Parse('Test.xls');
    my $f_volume;
    my $f_volume = $workbook->add_format(set_num_format => '#,##0');
    $worksheet->write('A:D', $f_volume);