package MyProject::DbhSingleton;
use Apache::Singleton::Request;
use base (qw Apache::Singleton::Request);
sub _new_instance {
  my $dbh = DBI->connect($dsn, $user, $pass, $attr) or die DBI->errstr;
}