#!/usr/bin/perl --
use Wx qw[ :allclasses ]; 
{ package MMenu;  use base qw/ Wx::Menu /; 1; }
{ package MFrame; use base qw/ Wx::Frame /; 1; }
package main;
print join "\n", 
    MMenu->new,
    MFrame->new,
;;;;;
__END__
Wx::Menu=SCALAR(0x3f9afc)
MFrame=HASH(0x99b30c)