use Gtk;
    Gtk->init;
    Gtk->set_locale;

  for(1..200) {
    my $o = new Gtk::Window;
    undef $o;
    sleep 1;
    print "$_\n";
  }