package Foo;

use DBI;
use Carp;
use strict;

sub new {
   my $class = shift;
   my $self  = {};
   bless $self, $class;

   # THE PROBLEM:
   $self->{'dbh'} = DBI->connect(@_) or carp;

   return $self;
}

1;