#!/usr/local/bin/perl 

#require "/usr/local/lib/perl5/ctime.pl";
require "/usr/local/web/scripts/cgi-lib.pl";


# $Header: /cys/people/brenner/http/docs/web/RCS/simple-form.cgi,v 1.2 1995/04/07 21:36:57 brenner Exp $
# Copyright (C) 1994 Steven E. Brenner
# This is a small demonstration script to demonstrate the use of 
# the cgi-lib.pl library


MAIN:
{
# Read in all the variables set by the form
  &ReadParse(*input);

# Print the header
  print &PrintHeader;
  print "\n";
  print "\n";
  print "\n\n";


# If you want, just print out a list of all of the variables.
  print "Here is a list of the variables you entered...
";
  print &PrintVariables(%input);

# now also print out all environment variables.
  print "
\n
Here are the script environment variables\n
\n";
  foreach $var (keys(%ENV)) {
    print "$var : $ENV{$var}\n
\n";
}

# Close the document cleanly.
  print "\n";
}