Select Code to Download

{
  my $input = '';
...
  }
}
print "It worked, of course.\n";

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

use IO::Prompt::Hooked;
prompt(
...
  validate => qr/^c$/i,
);
print "If we're here, we know it worked.\n";