use IO::Prompt::Hooked;

my $choice = prompt(
  message  => 'Do you wish to update? (Y/N):',
  validate => qr/^[YN]$/i,
);

##</code><code>##

my $choice = prompt(
  message  => 'Do you wish to update? (Y/N):',
  validate => qr/^[YN]$/i,
  error    => "Response must be 'Y' or 'N'.\n\n",
);

##</code><code>##

my $choice = prompt(
  message  => 'Do you wish to update? (Y/N):',
  default  => 'N',
  validate => qr/^[YN]$/i,
  error    => "Response must be 'Y' or 'N'.\n\n",
);