#!/usr/bin/perl

use 5.038.2;

use Term::ANSIColor qw(colored);

my @bg = qw(on_black  on_red      on_green  on yellow on_blue   on_magenta  on_cyan   on_white);
    
my @fg = qw(black  red  green  yellow  blue  magenta  cyan  white);


my $c = 99999;
my $count = 0;
for my $j (@bg){
    for my $i (@fg){
	$c--;
	$count++;
	last if $count == 25;
	say "$count) ", colored(" $i $j ", $i, $j);
    }
}

getkey();

system "clear";

exit 3;



sub getkey {
#    my $char;
#    do {
#	$char = readline(STDIN);    
#    }until (length($char));
#    return $char;

    use Term::ReadKey;
    my $key;
    ReadMode 4; # Turn off controls keys
    while (not defined ($key = ReadKey(-1))) {
	# No key yet
    }
#    print "Get key $key\n";
    ReadMode 0; # Reset tty mode before exiting
    no Term::ReadKey;
    return $key;
}

__END__