my $frame = MyAppFrame->new(undef, -1, 'A wxPerl Application');
   # my $frame = wxPerl::Frame->new(undef, 'A wxPerl Application');