if ($ENV{'REQUEST_METHOD'} eq "GET" && -e $DATA_FILE){
   $MODE="VIEW";
   &set_colors;
   &process_file;
   &do_stats;
   $PAGEHEADER=&set_page_header;
   $PAGEFOOTER=&set_page_footer;
   print "Content-type: text/html\n\n";
   print "$PAGEHEADER\n";
   &display_stats;
   print "$PAGEFOOTER\n";
   exit;
  }

sub set_page_footer{
my $PAGEFOOT=<<__END_PAGE_FOOT__;
 
 <TR>
 <TD COLSPAN=4 ALIGN=CENTER>
  <FONT FACE="$FONT" COLOR="$FONTCOLOR">
  <A HREF="$fields{'continue'}"><B>Continue</B></a>
  </FONT>
 </TD>
 </TR>
</TABLE>
 
</td></tr></table>
</body>
</html>

__END_PAGE_FOOT__
 return $PAGEFOOT;
}