Select Code to Download

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', 'VMacc
+ounts', 'supporting tables'] );

 print $q->h2($subtitle), "\n<table border>\n\t<tr><th>ID</th><th>Type
+";
  foreach (my $i=1; $i<=$#USER_FIELDS; $i++) {
...
    print "</th><th><a href=\"$flags\">$LABELS{$USER_FIELDS[$i]}</a>";
  }
  print "</th></tr>\n";