#!/usr/bin/perl -w

use strict;
use CGI;
my $q = new CGI;

print $q->header, $q->start_html;

if ( $q->param("name") ) {
	
	# Validate data and insert it into DB
	
	Answer();
	
} else {
	Form();
}

print $q->end_html;

sub Form {
	print $q->start_form, "Your name: ",
	$q->textfield("name"), " ",
        $q->submit,
	$q->end_form;
}

sub Answer {
	print "Your name is ",
	$q->strong($q->param("name"))
}