package KB::Stats::DBConnect; use strict; use warnings; use DBI; sub dbh { return DBI->connect( 'dbi:Pg:dbname=' . dbname(), username(), password(), ); }