$main_window->configure( -cursor => 'watch' );
Tkx::update();

long_routine();

$main_window->configure( -cursor => 'top_left_arrow' );
Tkx::update();