<% my $class %> <% my $vars = $Request->ServerVariables() %> <% for (sort keys %{$vars}) { %> <% next unless /^HTTP_|^REQUEST_/ %> <% $class = ($class ne 'normal')? 'normal': 'testalt' %> <% } %>
Name Value
<%=$_%> <%=$vars->{$_}%>