$mw->repeat( 500, $doStdout ); # execute $doStdout once every 500 millisec...? but why mw-> Tk::MainLoop(); #OK }