Would like to add several text boxes with labels to the below code and also curious to how i can get the application to load to the center of the screen. Oh and a submit button. I was playing around with perl Tk and now interesting in learning Wx. :)

#!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;
[download]