#!/usr/bin/perl

BEGIN   
        {
        use Bundle::Apache2 ();
        use Apache::DBI ();
        }

use Apache2::Const -compile => qw(OK);


$dbh = Apache::DBI->connect_on_init("DBI:mysql:database=dbname;host=localhost","dbuser","dbpass",{ PrintError => 1, RaiseError => 0, AutoCommit => 1});

1;