I took a swing at it. Probably you should really post to the wxperl-users list, see wxperl.sf.net. I took two tacks.

First let me say this is exactly not how I use wxperl stylistically, and it kind of matters here. I use one module per file, don't do much in new(), override Wx modules to make my own, and (so far but this will change quickly) don't build panels on the fly. With the exception of a Wx::Gauge I added today which I Show and hide when done with it. I put my use statements all at the top and use Wx 0.15 qw[:everything]. Basically taking the time to eat through parts of the demo and reading wxwidgets docs and tutorials will be required.

Okay. My theory was that it was working but there was nothing in the panel so you couldn't see it. When I added a text control I got Show to work (not really adding the panel at the last moment).

Also added sizers which is standard way to add panels. (sizer in top frame, then panel in sizer in panel..)

Finally I decided to just add one sizer to the frame, and build everything else at the last moment. This works, but I didn't get removal working (so I scrapped it). Also it will crash if you try to add the same one again. Anyway, the following should work. Caveat, I have done most Wx on windows recently but this I did on Linux. (Wx 0.15, wxWidgets 2.4.2). Note I also find App->Yield useful (not so important this time). Post to the list if you have more questions. So the key was to add something to see in the panel. Incidentally if you just use anonymous subs in new you can't do some things that require the object to exist first. So better to save all objects attached to the frame, and do it in separate subroutines.

It really seemed flaky this way (things wouldn't erase or draw well, Show's boolean value seemed backwards, etc. When I tried to Destroy I would get segfaults, etc.). This was a big surprise because the past few weeks building a Wx app on Win98 has been quite pleasant and speedy, for example I got printing of a chart drawing done in just a day, etc. This tells me what you are going is not the way to do it. Basically I think you want XRC and I worked on this partly because I am going to do XRC soon. Recommend you check it out for building on the fly interfaces, tearing them up and presumably down (I couldn't tear down cleanly my first swing). But limited tear up using the below method should work I think. Also look at the demo, many modules are used. Just instantiate a module for an entire window when you need it.

Anyway, here is the direct answer to what you requested, it just creates a panel with sizer and control in it, and adds the panel to the top sizer. Anybody with more experience at Wxperl please jump in! You can diff to see changes from your original. Good luck!

#!/usr/bin/perl

use warnings;
use Wx 0.15 qw[:everything];
package MyApp;

use strict;
use vars qw( @ISA );

@ISA = qw( Wx::App );


sub OnInit {
  my $self = shift;
  my ($frame) = MyFrame->new("Dungeon Construction Kit", [50,50], [450
+,350]);
  $frame->{app} = $self; # the app instance, so we can Yield to GUI
  $self->SetTopWindow($frame);
  $frame->Show( 1 );

  1;
}


package MyFrame;

#use strict;
use vars qw( @ISA );
use Wx qw[:everything]; ##ADDED
@ISA = qw( Wx::Frame );


sub new {
  my $class = shift;
  my ($title, $pts, $size) = @_;
  my $self = $class->SUPER::new(
    undef, -1, $title,
    Wx::Point->new(@$pts),
    Wx::Size->new(@$size),
  );

  # create the menus
  my $menubar = Wx::MenuBar->new();

  my $file_menu = Wx::Menu->new;
  my ($ID_MAKE_PANEL, $ID_HIDE_PANEL, $ID_EXIT) = 1 .. 1000;

  $file_menu->Append($ID_MAKE_PANEL, "&New\tCtrl+N", "Create a new pan
+el");
  $file_menu->Append($ID_EXIT, "E&xit\tCtrl+X", "Quit");
  $menubar->Append($file_menu, "&File");
  $self->SetMenuBar($menubar);

  use Wx::Event qw( EVT_MENU );

  # put sizer for panel into the frame
  $self->{topsizer} = Wx::BoxSizer->new(wxEXPAND);
  $self->SetSizer($self->{topsizer});

  EVT_MENU($self, $ID_MAKE_PANEL, \&MyFrame::showpan);
  EVT_MENU($self, $ID_EXIT, sub { $self->Close(1) });

  $self;
}

sub showpan {
  my $self = shift;

  # Make a panel with a text control so we can see it.
  $self->{text} = Wx::TextCtrl->new($self,-1,"Test",wxDefaultPosition,
+wxDefaultSize) unless $self->{text};
  $self->{textsizer} = Wx::BoxSizer->new(wxVERTICAL) unless $self->{te
+xtsizer};
  $self->{textsizer}->Add($self->{text},1,wxLEFT,2);
  $self->{panel} = Wx::Panel->new($self) unless $self->{panel};
  $self->{panel}->SetSizer($self->{textsizer}); # attach text sizer to
+ panel

  # Add panel to frame's sizer
  $self->{topsizer}->Add($self->{panel},1,wxEXPAND|wxALL,2);
  $self->{topsizer}->Layout;
  $self->{panel}->Show(0);
}


package main;

MyApp->new->MainLoop();
[download]