Answer for Ch. 10, Ex. 4 of Learning Perl Student Workbook.
Answer for Ch. 10, Ex. 4 of Learning Perl Student Workbook.

Using redo and a naked block, continually prompt a user to guess a
secret number between 1 and 10.

Literally just took ex10-01.pl, stripped out the while, set the 'rand' to
10, and changed each 'next' to 'redo'. Oh, and added a label to the
naked block, for fun.

/rs.

ruddystream/Learning-Perl,ruddystream/Learning-Perl