use IO::Prompt::Hooked qw(prompt);

my $input = prompt(
  message  => 'Please enter 47:',
  validate => qr/^47$/,
);
print "You entered: $input\n";