<html> <body> <FORM METHOD="POST" ACTION="http://jacknilan.tripod.com/cgi-bin/formprocess.pl"> Enter Name< BR> <INPUT TYPE="text" NAME="name" VALUE="" SIZE="25" MAXLENGTH="150"> <br> Enter Phone <br> <INPUT TYPE="text" NAME="phone" VALUE="" SIZE="25" MAXLENGTH="150"> < br> Enter E-Mail <br> <INPUT TYPE="text" NAME="email" VALUE="" SIZE="25" MAXLENGTH="150"> <INPUT TYPE="submit" VALUE="Submit"> </FORM> </body> </html> |
#!/usr/local/bin/perl print "Content-type: text/html\n\n"; use CGI qw(param); $n = param('name'); $p = param('phone'); $e = param('email'); print "<html>"; print "<body>"; print "Your Name is $n"; print "<br>"; print "Your phone is $p"; print "<br>"; print "Your E-Mail is $e"; print "<br>"; print "<a href ='http://jacknilan.com'>Push a key to Return</a>"; print "</body>"; print "</html>"; |