use IO::Prompt::Tiny qw/prompt/; my $answer = prompt("Yes or no? (y/n)", "n");