2_0_7/ModPerl-Registry/t/cgi-bin/env_val.pl - mod_perl - Git at Google

 # test env vars

 print "Content-type: text/plain\n\n";
 my $var = $ENV{QUERY_STRING};
 print exists $ENV{$var} && $ENV{$var};

 __END__
	# test env vars

	print "Content-type: text/plain\n\n";
	my $var = $ENV{QUERY_STRING};
	print exists $ENV{$var} && $ENV{$var};

	__END__