#!/usr/bin/perl
 use CGI qw/:standard/;
   print
       header,
       start_html('test_cgi'),
       h1('Please choose one of the following options.'),
       h2('     1) Insert all Apps Belonging to a group'),
       h2('     2) Insert groups in database'),
       h2('     3) Refresh database group table'),
       h2('     4) Add all app from one group to another'),
       h2('     5) Get Group ID'),
       h2('     6) Get User ID'),
       h2('     7) Sync Groups'),
       h2('     8) Get list of all apps'),
       h2('     9) exit'),
       start_form,
       "Enter a your choice from list above:  ",textfield('selection'),p,
       "Select which to operate on:  ",
       checkbox_group(-name=>'words',
                      -values=>['users','groups','apps'],
                      -defaults=>['users','groups']),p,
       "What should we do with the selection ",
       popup_menu(-name=>'color',
                  -values=>['add','show','update','none']),p,
       submit,
       end_form,
       hr,"\n";
        print "$endd \n";
    if (param) {
       print
           "You selected: ",em(param('selection')),p,
           "Process: ",em(join(", ",param('words'))),p,
           "To do: ",em(param('color')),".\n";
    }
    print end_html;