head     1.1;
branch   ;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


1.1
date     95.03.07.14.16.27;  author yonah;  state Exp;
branches ;
next     ;


desc
@???
@



1.1
log
@Initial revision
@
text
@#!/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");
@
