package Foo::DBI;
        use base 'Class::DBI';
        use Class::MethodMaker
                new_with_init   => 'new';

        sub init
        {
          my $self->set_db('Main', 'dbi:mysql:database', 'user', 'password');
        }

##</code><code>##

[Wed Sep 24 12:39:38 2003] [error] [client 10.0.1.48] Premature end of script headers: test.cgi
[Wed Sep 24 12:39:38 2003] [error] [client 10.0.1.48] Can't connect(), no database driver specified and DBI_DSN env var not set at blib/lib/Class/MethodMaker.pm (autosplit into blib/lib/auto/Class/MethodMaker/new_with_init.al) line 259