#!/usr/bin/perl

    use strict;
    use warnings;

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


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

    # Get the underlying Spreadsheet::WriteExcel workbook.
    my $swe_workbook = $template->SaveAs('color02.xls');


    # Map the original color palette to the new workboook.
    for my $i ( 8 .. 63 ) {
        $swe_workbook->set_custom_color( $i, '#' . $parser->ColorIdxToRGB($i) );
    }