(C) 2003, Tim Maher       1-16       www.TeachMePerl.com
Perl Man-Page Browser
Source Code
.
.
 #! /usr/bin/perl -w
 use Shell::POSIX::Select ;
 .
  # Use man-page names from the TOC portion
  # of "perldoc perl" output as menu choices
  # Each chosen page will be displayed
 .
 select $manpage (
    # Following line grabs man-page names
   `perldoc perl` =~ /^\s+(perl\w+)\s/mg
 ) {
   system "perldoc '$manpage'" ;
 }