Help for this page

Select Code to Download

Select or download this

my $h = 0x33;

for my $i (0..5) {
...
    }
}

Select or download this
for $a(0..5){for $b(0..5){printf"#%02x%02x%02x\n",$a*51,$b*51,$_*51for 0..5}}