perl -e 'use Tk;use Tk::Button;my $top = new MainWindow;for (1..100) {
  for (1..1000) {
    $top->Button(-text=>"foo")->destroy;
  }
  sleep 1;
}
'