#*********************************************************
# Script for decoding a simple form
# by Al Bento
#*********************************************************
$CRLF = "\n";
#Call in the CGI library.
require "cgi-lib.pl";
# Read in all the variables set by the form
&ReadParse;
print &PrintHeader;
print "\n";
print "decode\n";
print "\n";
print "\n";
print "Form decode
\n";
print "
\n";
print <
Your e-mail is: $in{email}
Your passwd is: $in{passwd}
Your name is: $in{name}
ENDOFTEXT
print "\n";
print &HtmlBot