while (1){
  my $h   = $label->Height() + 5;
  &do_it;
  $main->Show();
  sleep(2);
}