package interface;
 use CGI::Carp qw(set_die_handler);
    BEGIN {
       sub handle_errors {
          my $msg = shift;
          print "content-type: text/html\n\n";
          print "$msg";

      }
      set_die_handler(\&handle_errors);
    }
use strict;
use warnings;
use Template;
use DBI;
   

eval {
  ($0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
  ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
  do 'config.do';
  do 'templates.do';
  do 'shared.do';
  do 'database.do';
};

my $config = { 
 INCLUDE_PATH => "$config::templatesAbs", 
 INTERPOLATE  => 1,  
 POST_CHOMP   => 1,  
};

print "Content-type:text/html\n\n";
my $template = Template->new($config);
my $vars = {
      images  => "$config::imagesUrl",
};
my $input = 'welcome.htm';
$template->process($input,$vars) || die $template->error();

##</code><code>##

[Mon Aug 18 00:13:48 2008] [notice] Parent: child process exited with status 255 -- Restarting.
[Mon Aug 18 00:13:48 2008] [notice] Apache/2.0.63 (Win32) mod_perl/2.0.3 Perl/v5.8.8 configured -- resuming normal operations
[Mon Aug 18 00:13:48 2008] [notice] Server built: Jan 17 2008 22:58:29
[Mon Aug 18 00:13:48 2008] [crit] (OS 87)The parameter is incorrect.  : Parent: Failed to create the child process.
[Mon Aug 18 00:13:48 2008] [crit] (OS 6)The handle is invalid.  : master_main: create child process failed. Exiting.
[Mon Aug 18 00:13:48 2008] [notice] Parent: Forcing termination of child process 3385760