Help for this page
my $frame = MyAppFrame->new(undef, -1, 'A wxPerl Application'); # my $frame = wxPerl::Frame->new(undef, 'A wxPerl Application');
Wx::Event::EVT_BUTTON($button4, -1, sub { my ($b, $evt) = @_; my $file = Win32::GUI::GetOpenFileName