Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use strict;
...
"
Odd number of elements in anonymous hash at -e line 1.
{ Jeff => { Doug => undef } }

while (1) {
    # display the menu
...
    ...
    
    }  # end while loop