#!/usr/bin/perl -w #********************************************************* # Script for decoding a simple form # by Al Bento #********************************************************* #Call in the CGI.pm . use CGI qw(:cgi-lib :standard); if (param()) { # under Post show input. &Show; } else { # Under GET, send form. &ReturnForm; } #********************************************************* # ReturnForm Subroutine #********************************************************* sub ReturnForm { print header; print start_html (-title=>"decode with CGI.pm",-BGCOLOR=>"#ffffff"); print h1("Form decode example"); print hr; print <
Username:
e-mail
Password

Name:


ENDOFFORM print p; print end_html; } #********************************************************* # Show Subroutine #********************************************************* sub Show { # Read in all the variables set by the form ReadParse(); #Show the information print header; print start_html (-title=>"decode with CGI.pm",-BGCOLOR=>"#ffffff"); print h1("Form decode"); print hr; print < Your e-mail is: $in{email}
Your passwd is: $in{passwd}
Your name is: $in{name}
ENDFORM print p; print end_html; }