view release on metacpan or  search on metacpan

eg/q_and_a  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;

use lib '/Users/gene/sandbox/Acme-Affinity/lib';
use Acme::Affinity;

use List::Util 'shuffle';
use Term::Choose;
use Term::Clear ();

# https://www.eharmony.com/dating-advice/first-dates/15-great-first-date-questions/
my $questions = [
    { i => 1,
      q => 'Who are the most important people in your life?',