use Term::Choose;

my $choose = Term::Choose->new( colored => 1 );