my $main_dbh = DBI->connect(...);
while( 1 ) {
    my $dbh;
    if( $forked ) {
        $dbh = DBI->connect(...);
    } else {
        $dbh = $main_dbh;
    };
    $dbh->selectall_arrayref($sql);
}