sub main::dbh
{
    # for daemons and long running code - reconnect as needed
    DBI->connect_cached( ... )
}

sub main::dbh
{
    # initialize the connection or re-use.
    $::DBH ||= DBI->connect( ... )
}