#!/usr/bin/env perl
use strict;
use warnings;
use Term::Choose qw( choose ); # Version 1.632

my $lore = [ ( "\e[31mSed\e[0m", "\e[32mut\e[0m", "\e[33mperspiciatis\e[0m", "\e[34munde\e[0m", "\e[35momnis\e[0m", "\e[36miste\e[0m", "\e[37mnatus\e[0m", "error", "it",
"voluptatem", "acc\e[32mus\e[35man\e[36mti\e[0mum", "mdoloremque", "laudantium", "\e[31mSed\e[0m", "\e[32mut\e[0m", "\e[33mperspiciatis\e[0m", "\e[34munde\e[0m",
"\e[35momnis\e[0m", "\e[36miste\e[0m", "\e[37mnatus\e[0m", "error", "it", "voluptatem", "accusantium", "doloremque", "laudantium" ) x 10 ];

my $justify = 2; # 0 1
for my $color ( 1, 2, 3 ) {
    my @choices = choose( $lore, { justify => $justify, color => $color, max_width => 140 } );
    print "@choices\n" if @choices;
}