I thought I'd try WxPerl and WxGlade out. I generated a very simple testcase. Works fine with Strawberry Perl. I tried compiling, no warning, errors and no GUI either. Just runs for a few seconds and stops. I am compiling with WxPar.

c:\temp>perl wx2.pl <<< runs fine
Subroutine Wx::App::OnInit redefined at wx2.pl line 94.

c:\temp>wxpar --gui -o wx2.exe wx2.pl

Running Command .....

pp @wx2.wxparargs --gui -o wx2.exe wx2.pl

 .....


c:\temp>wx2.exe <<<runs with no errors or GUI

#!/usr/bin/perl -w -- 
# generated by wxGlade 0.6.3 on Wed May 26 16:47:12 2010
# To get wxPerl visit http://wxPerl.sourceforge.net/

package MyFrame2;
use Wx::Perl::Packager;
use Wx qw[:everything];
use base qw(Wx::Frame);
use strict;

sub new {
    my( $self, $parent, $id, $title, $pos, $size, $style, $name ) = @_
+;
    $parent = undef              unless defined $parent;
    $id     = -1                 unless defined $id;
    $title  = ""                 unless defined $title;
    $pos    = wxDefaultPosition  unless defined $pos;
    $size   = wxDefaultSize      unless defined $size;
    $name   = ""                 unless defined $name;

# begin wxGlade: MyFrame2::new

    $style = wxDEFAULT_FRAME_STYLE 
        unless defined $style;

    $self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $sty
+le, $name );
    

    # Menu Bar

    $self->{frame_3_menubar} = Wx::MenuBar->new();
    my $wxglade_tmp_menu;
    $wxglade_tmp_menu = Wx::Menu->new();
    $wxglade_tmp_menu->Append(Wx::NewId(), "New", "");
    $wxglade_tmp_menu->Append(Wx::NewId(), "Destroy", "");

    $self->{frame_3_menubar}->Append($wxglade_tmp_menu, "File");
    $self->SetMenuBar($self->{frame_3_menubar});
    
# Menu Bar end

    $self->{frame_3_statusbar} = $self->CreateStatusBar(1, 0);

    $self->__set_properties();
    $self->__do_layout();

# end wxGlade
    return $self;

}


sub __set_properties {
    my $self = shift;

# begin wxGlade: MyFrame2::__set_properties

    $self->SetTitle("frame_3");
    $self->{frame_3_statusbar}->SetStatusWidths(-1);
    
    my( @frame_3_statusbar_fields ) = (
        "frame_3_statusbar"
    );

    if( @frame_3_statusbar_fields ) {
        $self->{frame_3_statusbar}->SetStatusText($frame_3_statusbar_f
+ields[$_], $_)     
        for 0 .. $#frame_3_statusbar_fields ;
    }

# end wxGlade
}

sub __do_layout {
    my $self = shift;

# begin wxGlade: MyFrame2::__do_layout

    $self->{sizer_2} = Wx::BoxSizer->new(wxVERTICAL);
    $self->SetSizer($self->{sizer_2});
    $self->{sizer_2}->Fit($self);
    $self->Layout();

# end wxGlade
}

# end of class MyFrame2

1;



package main;

unless(caller){
    local *Wx::App::OnInit = sub{1};
    my $app = Wx::App->new();
    Wx::InitAllImageHandlers();

    my $frame_3 = MyFrame2->new();

    $app->SetTopWindow($frame_3);
    $frame_3->Show(1);
    $app->MainLoop();
}
[download]