print $q->start_form(),
  'Please choose an action:  ',
  $q->popup_menu( -name => 'exec', -values => ['add', 'list', 'search'] ),
  $q->popup_menu( -name => 'table', -values => ['users', 'VPN', 'VMaccounts', 'supporting tables'] );

##</code><code>##

 print $q->h2($subtitle), "\n<table border>\n\t<tr><th>ID</th><th>Type";
  foreach (my $i=1; $i<=$#USER_FIELDS; $i++) {
    my $flags = '?exec=list&amp;table=users&amp;orderby='.$i;
    if ($i == $index) {
      $flags .= '&amp;desc=1';
    }
    print "</th><th><a href=\"$flags\">$LABELS{$USER_FIELDS[$i]}</a>";
  }
  print "</th></tr>\n";