#!/usr/athena/bin/perl

print("Content-type: text/html\n\n<ul>\n");
while(($var, $value) = each %ENV){
	print("<li>$var:  $value\n");
}
print("</ul>\n");
