package Vector::DB; use DBI; use strict; sub connect { my $dbh = DBI->connect_cached('DBI:mysql:database=doa_vector;host=mysql.dominionofawesome.com', 'awesome', 'g00b3r') or die $DBI::errstr; return $dbh; } 1;