my $dbh = DBI->connect( " yada yada " ), { PrintError => 0}, or die "cannot open db connection: $DBI::errstr\n"; #### eval { my $dbh = DBI->connect( " yada yada " ), { PrintError => 0}, or die "cannot open db connection: $DBI::errstr\n"; } return $dbh; #### sub db_connection { my ( $self ) = @_; my $dbh;