# ------------------------------
# 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.