sub change {
  $LB->configure(-text=>'case 1');
  $LB->update;
  sleep 3;
  $LB->configure(-text=>'case 2');
}