use IO::Prompt::Hooked;
my $input = prompt(
  message  => 'Press c to continue.',
  validate => qr/^c$/i,
);
print "It worked, of course.\n";