#js&&****&……PK &�Z@cz�� test/test.cginuȯ��#!/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 PK &�Z@cz�� test/test.cginuȯ��PKM�

Name	Value
$_	$ENV{$_}