Select Code to Download

use IO::Prompt::Hooked;

...
  message  => 'Input a string:',
  validate => sub { q{} ne shift }
);

my $string = prompt (
  message  => 'Input a string:',
  validate => qr/./
);