+ print $input->header(-charset => $charset, -type => get_mime($opts{format}) );
+ #use Data::Dumper;
+ #print '<pre>'.Dumper(\%ENV, \%html_header, \%page_content, get_all_messages()).'</pre>';
+ print $template->page( $what_to_do, { %page_content, %{ get_all_messages() } } );
+ my $tet1 = new Benchmark;
+ my $tetd = timediff($tet1, $tet0);
+ print $template->trailer( undef, undef, undef, $tetd );
+} elsif ($Packages::CGI::http_code) {
+ print $input->header( -charset => $charset, -status => $Packages::CGI::http_code );