print   header(),
        start_html(-title=>$title, -bgcolor=>"cyan"),
        checkForm(),
        $cgi->start_form(
                -name=>"apps_menu",
                -method=>"GET",
                -onsubmit=>"return checkForm( this )"
);

##</code><code>##

# ------------------------------
# Display Application Menu.
# ------------------------------
print
qq(<tr><td width=\"175\" align=\"right\">
          <b>Application: </b></td><td>),
$cgi-> popup_menu
(
        -name=>'ap_name',
        -values=>\@ap_names,
        -labels=>\%ap_labels,
        -size=>'8',
#       -onclick=>set_apx()   Not good!
);

set_apx(); # Sort-of works here as planned.

##</code><code>##

print br(),
submit(-name=>"action", -value=>"Start Application"),
reset,
end_form(),
end_html();
$dbh->disconnect();
exit(0);

##</code><code>##

# ----------------------------------------------------
sub set_apx { # Generate some JavaScript here:
        print qq(<script><!--
                document.apps_menu.action=apps_menu['ap_name'].value;
        // --></script>);
}