perl -MWx -e"sub Wx::Frame::DESTROY { $_[0]->Destroy; } for(1..4){for(1..2000){ my $f =Wx::Frame->new; } scalar<>;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; } scalar<>;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; $f->Close; } scalar<>;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; $f->Close; undef $f; } scalar<>;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; $f->Close; $f->Destroy; undef $f; } scalar<>;}"