#!/usr/local/perl5.6.1/bin/perl require "httpd-paths.ph" || die "$0: can't load httpd-paths.ph: $!\n"; use XML::Simple; use CGI; use CGI::Carp; use utf8; my $file = \*DATA; my $xmlSimple = XML::Simple->new(searchpath => ".", forcearray => 0,parseropts => [ProtocolEncoding => 'UTF-8']); my $xml = $xmlSimple->XMLin($file); my $q = new CGI; print "Content-type: text/html; charset=utf-8\n\n"; print < END print <



END foreach $i (keys %ENV) { print "$i:$ENV{$i}
\n"; } print < END __DATA__ hello