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

##</code><code>##

use IO::Prompt;

use strict;

print <<'END_INTRO';
Mary had a little lamb
Then the lamb ate Mary
and it was little no more.
END_INTRO

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