I could probably write a book on the subject of the OP but I'll stick to just one DBI example.

my $dbh = DBI->connect($database, $user, $password) or die $dbh->errstr;

When I found it, I decided to grep for it. It was being used in every script that pulled from the database!