sub connect_to_mysql {
    state $dbh;
    if (!$dbh || !$dbh->ping) {
        $dbh = DBI->connect(...);
    }
    $dbh;
}