$mw->repeat(
    2000 => sub { 
        doPings();
        updateTextFields();
        $mw->update();
    }
);