Select Code to Download

sub button_click {
    $hit++;     
    warn "hit $hit ";
...
    }    
    warn "[\n", map({ "\t$_,\n" } $status->GetChildren ), "\] ";
}

$ perl wx.904074.event.pl
hit 2  at wx.904074.event.pl line 34.
[
...
        Wx::StaticText=HASH(0xed4c44),
]  at wx.904074.event.pl line 46.
hit 8  at wx.904074.event.pl line 34.