#js&&****&……test/test.cgi000075500000001226150320557610007176 0ustar00#!/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
NameValue
$_$ENV{$_}