Thanks for your time. Now my startup.pl looks like

#!/usr/bin/perl

BEGIN
        {
        use Apache::DBI;
        }


$dbh = Apache::DBI->connect_on_init("DBI:mysql:database=dbname;host=lo
+calhost","dbuser","dbpass",{ PrintError => 1, RaiseError => 0, AutoCo
+mmit => 1});

1;
[download]

At the top of my startup.pl file, I have:

BEGIN {
  use Apache();
  # ...
}
[download]

Seems I was steering you wrong, thinking you hadn't installed mod_perl yet.


--chargrill

---

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]

You don't need to load Apache. mod_perl does it already.