#!C:/strawberry/perl/bin/perl.exe

use strict;
use warnings;
use Wx;

package hi;

use base qw(Wx::App);

sub OnInit
{
my $self = shift;
my $frame = Wx::Frame->new( undef,
							-1, #Window id
							'hi', #Window Title
							[1,1],  # position X, Y
							[200, 200], #window size
);
$self->SetTopWindow($frame);
$frame->Show(1);
}
package main;

my $wxobj = hi->new(); # New hi application
$wxobj->MainLoop;