sub Tk_loop { 
    Tk->tkwait('variable',\$giveup); 
    $count_DoOne++, Tk::DoOneEvent(0) until $giveup; 
    $count_loop++; 
    $giveup = 0; 
}