(C) 2003, Tim Maher       1-23       www.TeachMePerl.com
Command Composer 
Source Code
 #! /usr/bin/perl -w
 use Shell::POSIX::Select qw($Heading $Prompt $Eof) ;
 .
 .
  # Using parallel arrays to demo $Reply variable
 @formats = ( 'regular', 'long' ) ;
 @fmt_opt = ( '',        '-l'   ) ;
 .
 @types   = ( 'only non-hidden', 'all files' ) ;
 @typ_opt = ( '',                '-a' ,      ) ;
 .
 print "LS-COMMAND COMPOSER\n" ;
 .
  # Set variables for OUTER loop
 $Heading="\n**** Style Menu ****" ;
 $Prompt= "Choose listing style:" ;
 .
.