#!perl
shift->send_http_header("text/plain");

unless($My::config_is_perl) {
    while (my($key,$val) = each %ENV) {
	print "$key=$val\n";
    }
}

print "TOTAL: ", scalar keys %ENV;