use strict;
use warnings;

package ServusWelt;
use Wx qw/ :everything /;
use base qw(Wx::App);                       # von Wx::App ableiten

sub OnInit {
 my $app   = shift;
 my $frame = Wx::Frame->new( undef, -1, 'Servus Welt', [-1, -1], [150, 150]);
 my $panel = Wx::Panel->new( $frame, -1);
    
 my $staticbox = Wx::StaticBox->new( $panel, -1, 'Wx::StaticBox' );
 my $button    = Wx::Button->new( $panel, -1, 'Button 3' );
    
 my $nsz = Wx::StaticBoxSizer->new( $staticbox, wxVERTICAL);
    $panel->SetSizer($nsz);
    $nsz->Add( $button, 0, wxGROW|wxTOP, 5 );

    
    $frame->Show(1);                        # Fenster zeichnen
    $app->SetTopWindow($frame);             # Fenster als oberstes bestimmen
	1;
} # /OnInit

package main;
ServusWelt->new->MainLoop;                # Programminstanz erzeugen und starten