#!/usr/bin/perl
#simple.cgi - Create a simple query
use CGI;
$query =CGI->new;
$Name=$query->param('Username');
$Age=$query->param('Age');
$Birth=$query->param('Birth');
print $query->header();
#validate input data
if ($Name eq "" or $Age eq "" or $Birth eq "") {
display_error_page();
}
else {
display_acknowledgment();
}
# ******user defined function*****
sub display_error_page {
print "<html>\n";
print "<head><title>Errors on Page</title></head>\n";
print "<body>\n";
print "<h2>Click on your brower's back button,\n";
print "to complete the entire form</h2>\n";
print "</body></html>\n";
} #end display_error_page
sub display_acknowledgement {
print "You said your name is: $Name\n";
print "<br>";
print "You said your age is: $Age\n";
print "<br>";
print "Your city of birth is: $Birth\n";
} #end display_acknowledgment
display_acknowledgment();
sub display_acknowledgement {
you are missing an "e" after the letter "g" when you call the sub routine. A lesson in using shorter names maybe? :)
