#!/usr/local/bin/perl
#
$script_URL = "url of script goes here";
#
use CGI;
$query = new CGI;
$name = ($query->param("f_name"));
$tel = ($query->param("f_tel"));
$zip = ($query->param("f_zip"));
#
if ($name$tel$zip eq '') {
#
&showform;
#
} else {
#
print "Name: $name<BR>\n";
print "Tel: $tel<BR>\n";
print "Zip: $zip<BR>\n";
}
exit;


##############
sub showform {
##############
#
print "<FORM ACTION=$script_URL METHOD=POST>\n";
print "<B>Name:</B> <INPUT TYPE=text NAME=f_name SIZE=24 value=\"$name\"><BR>\n";
print "<B>Tel:</B> <INPUT TYPE=text NAME=f_tel SIZE=12 value=\"$tel\"><BR>\n";
print "<B>Zip:</B> <INPUT TYPE=text NAME=f_zip SIZE=5 value=\"$zip\"><BR>\n";
print "<INPUT TYPE=submit VALUE=\"SUBMIT\">\n";
#
}