Select Code to Download

$table->Cell(1,1)->Range->{Shading}->{BackgroundPatternColor} = 254;

use strict;
use warnings;
...

    $colour++;
}