use strict;
use warnings;
print <<"EOH";
Random Color Generator
Random Color Generator
EOH
my $count = 0;
for (0 .. 7) {
my @color = map { join "" => "#", map { sprintf "%02x", rand 255 } 1 .. 3 } 1 .. 8;
print qq{ \n};
print qq{ $_ | \n} for @color;
print qq{
\n};
print qq{ \n};
print qq{ | \n} for @color;
print qq{
\n};
}
print "
\n\n\n";