use IO::Prompter;

my $answer = prompt("Do you accept this challenge? ", -yesno) ? 1 : 2;