&print_page_start; if($query->param('submitted')) { $error_message = ""; &validate_form; if($error_message eq "") { &submit_form_values; } else { print "

\n" . $error_message . "\n"; } } else { &set_initial_values; &print_form; } &print_page_end; ##

##

sub set_initial_values {
   $firstname = $query->param('firstname');
   $lastname = $query->param('lastname');
   $email = $query->param('email');
   $phone = $query->param('phone');
   $dob = $query->param('dob');
   $workstation = $query->param('workstation');
   $username = $query->param('username');
   $password = $query->param('password');
   $passagain = $query->param('passagain');
}

##

##

# the important part of submit form
sub print_form {
	print "\n";
	print "\n";
	print "
	
First Name
	 \n";
}