Select Code to Download

use IO::Prompt 'prompt';
my $resp = prompt("Foo? ", -yn);
...
use Term::ReadLine;
my $term = Term::ReadLine->new;
my $line = $term->readline("Bar? ");

use ExtUtils::MakeMaker 'prompt';
my $value = prompt("Quz?","n");