sub callback {
   $var = "INFO: step 1, please wait ...\n";
   $lab->configure(-textvariable => \$var);
   $lab->update;
sleep 2;
   $var = "INFO: step 2, please wait ...\n";
   $lab->configure(-textvariable => \$var);
   $lab->update;
sleep 2;
}