while (1)
{
    &refresh;
    $mw->update;
    sleep 1;
}