Help for this page
# After 100ms call my_routine(). Tkx::after(100, sub { my_routine(); }); Tkx::MainLoop();
http://www.tkdocs.com/tutorial/