#! perl -sw
use strict;
local $\=$/;

sub Dlighken {
  return sprintf '%02x'x3,
  	map{ ($_ *= 1+$_[1]) > 0xff ? 0xff : $_  }
  	map hex, unpack 'A2'x3, $_[0];
}

my @colors = qw/800000 808000 008000 008080 000080 808080 c0c0c0/;

print '<table>';
print '<tr><td>&nbsp;</td>', map{ 
    '<th>'.$_.'</th>' 
} @colors, '</tr>'; 

for my $scale ( -5 .. +5 ) {
    print '<tr><td>'.($scale/10).'</td>';
    print '<td bgcolor="#', $_, '">', $_, '</td>' 
        for map{ Dlighken($_, $scale/10) } @colors;
    print '</tr>';
}
print '</table>';
__END__