use IO::Prompt::Hooked;

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