$mw->configure(-cursor => 'watch');
... do some stuff here ...
$mw->configure(-cursor => undef);