My module that implements the select loop of the Korn and Bash shells has been released! It's called Shell::POSIX::Select, and it's available from your friendly neighborhood CPAN mirror now. You can also check out the documentation at my web site. Here's one of the examples shown in the documentation:

use Shell::POSIX::Select ;

# Extract man-page names from TOC portion of output of "perldoc perl"

select $manpage ( sort ( `perldoc perl` =~/^\s+(perl\w+)\s/mg) ) {
      system "perldoc '$manpage'" ;
}

Screen

   1) perl5004delta   2) perl5005delta   3) perl561delta
   4) perl56delta     5) perl570delta    6) perl571delta
        . . .
(This large menu spans multiple screens, but all parts can be 
accessed using your normal terminal scrolling facility.)

   Enter number of choice: 6

        PERL571DELTA(1)       Perl Programmers Reference Guide

        NAME
               perl571delta - what's new for perl v5.7.1

        DESCRIPTION
               This document describes differences between the 5.7.0
               release and the 5.7.1 release.
        . . .
[download]