use Tk;
$mw = tkinit;
$mw->update;
$mw->Busy;
sleep 2; # never use this in real Tk programs!
$mw->Unbusy;