use strict;

use Sub::NamedParams qw(wrap);
wrap(
    'sub'     => 'ask_ok',
    names    => [qw(prompt retries complaint)],
    hashref  => 1,
    default  => {
      prompt    => 'Enter answer:',
      retries   => 4,
      complaint => 'Yes or no, please!', 
    }
);

sub ask_ok {
   my ($prompt,$retries,$complaint) = @_;
   {
      print $prompt;
      chomp (my $answer = <>);
      return 1 if $answer =~ /y\b|ye\b|yes\b/;
      return 0 if $answer =~ /n\b|no\b|nop\b|nope\b/;
      $retries--;
      die 'refusenik user' if $retries < 0;
      print "$complaint\n";
      redo
   }
}

my $quit;
while (not $quit) {
   $quit = ask_ok({prompt => 'Do you really want to quit?'});
}