Cross Reference: /httpd/docs/cgi-examples/printenv

	printenv revision f3220f54126b25e1cf93cc26c17177b7aef850fd
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding#!/usr/local/bin/perl
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding
f3220f54126b25e1cf93cc26c17177b7aef850fdfieldingprint "Content-type: text/html\n\n";
f3220f54126b25e1cf93cc26c17177b7aef850fdfieldingwhile (($key, $val) = each %ENV) {
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding    print "$key = $val<BR>\n";
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding}
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding