use strict; use Wx; package MyApp; use vars qw(@ISA); @ISA = qw(Wx::App); sub OnInit { my( $this ) = shift; my( $frame ) = MyFrame->new(); $this->SetTopWindow( $frame ); $frame->Show( 1 ); } package MyFrame; use vars qw(@ISA); @ISA = qw(Wx::Frame); sub new { my( $this ) = shift->SUPER::new( undef, -1, 'Hello, world!', [200,200] , [350, 100] ); return $this; } package main; my( $app ) = MyApp->new(); $app->MainLoop();