use Gtk;
Gtk->init;
Gtk->set_locale;
print "$$\n";

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



package Gtk::MJD;

BEGIN { @ISA = 'Gtk::Window' }

sub DESTROY {
  my $self = shift;
  print "$self being destroyed.\n";
  $self->SUPER::DESTROY;
}