use Wx qw[:everything];
*Wx::App::OnInit = sub {1};
my $a = Wx::App->new;
my $f = Wx::Frame->new( undef, -1, 'Hello, world!',
                                   [200,200] , [350, 100] );
$a->SetTopWindow($f);
$f->Show(1);
$a->MainLoop();
__END__