#!/usr/bin/perl

BEGIN
        {
        use Apache::DBI;
        }


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

1;