#!/usr/bin/perl --
use strict; use warnings;
use Wx; 
my$app=Wx::SimpleApp->new;
for(1..10){
    for(1..2000){
        my $f =Wx::Frame->new;
        $f->Close;
        $f->Destroy;
        undef $f;
        $app->ProcessIdle; ## CRITICAL
## can also be written as
## Wx::wxTheApp()->ProcessIdle; 
#~         $app->Dispatch for 1..1000;
        $app->Dispatch for 1..10;
    }
    scalar<>;
}
__END__