Select Code to Download

Cannot write to terminal: No such file or directory at scratch.pl line
+ 13

use IO::Prompt;

...
        -require => {"Prompt (requires a single word, exit to quit): "
+ => qr/^\w+$/};
    print "You typed '$choice'\n";
}