sub show_form
{
 # Get the HTML for the "Add Entry" template:
 my @form = getfile($submitfile,0);		
 
 # Print a content header to tell it we're sending HTML:
 print "Content-type: text/html\n\n";
 
 # Loop over each line of HTML from the template and do the following:
 
 # 1. Feed the line through expand_vars() to handle special content tags.
 # 2. Now print the line as normal.
 
 foreach my $line (@form){
  $line = expand_vars($line,'');
  print "$line";
 }
 
 # Now we're done, so exit:
 exit;
}
1;
