#!/usr/bin/perl print < HTML my $class; foreach (sort keys %ENV) { next unless /^HTTP_|^REQUEST_/; $class = ($class ne 'normal')? 'normal': 'alt'; print < HTML } print < HTML

Name	Value
$_	$ENV{$_}