#!/usr/local/bin/perl use strict; use lib qw( /webcontent/server_home/rentsavers/test ); $ENV{MOD_PERL} or die "not running mod_perl!: $! \n"; use Apache::Registry; use Apache::DBI (); use DBI (); # Initialize the database connections for each child Apache::DBI->connect_on_init ("DBI:mysql:database=test;host=localhost", "testuser", { PrintError => 1, # warn() on errors RaiseError => 0, # don't die on error AutoCommit => 1, # commit executes immediately } ); 1;