Select Code to Download

#!/usr/bin/perl

...
      $worksheet->write_rich_string($comp_row, $col->[0], @wmap);
   }
}