#!perl -w
use Wx;
use utf8;

package MyApp;

use base 'Wx::App';

sub OnInit {
		
	my $frame = Wx::Frame->new( undef, # Szülő ablak
		        -1,		# ID -1 azt jelenti bármi (any)
			'wxPerl ablak', # cím
			[-1, -1],       # alapértelmezett pozíció
			[250, 150],     # méret
			);
	$frame->Show(1);
}


package main;
my $app = MyApp->new();
$app->MainLoop();