Select Code to Download

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

...
  validate => qr/^47$/,
);
print "You entered: $input\n";

Please enter 47: a
Please enter 47: b
Please enter 47: 42
Please enter 47: 47
You entered: 47