(C) 2003, Tim Maher       1-24       www.TeachMePerl.com
Command Composer
Source Code (cont.)
 OUTER:
 select $format ( @formats ) {
   $format=$fmt_opt[ $Reply - 1 ] ;
 .
    # Set heading/prompt for inner loop
   $Heading="\n**** File Menu ****" ;
   $Prompt="Choose files to list:" ;
 .
   select $type ( @types ) {  # ^D->OUTER
     $type=$typ_opt[ $Reply - 1 ] ;
     last OUTER ;    # leave with choices
   }
 }
 $Eof  and  exit ;   # handle ^D to OUTER

.