use strict;
use Tk;

my $mw = MainWindow->new( -height => 100, -width => 350);
$mw->title ("Hello, world!");
MainLoop;
[download]

use strict;
use Wx;


package MyApp;

use vars qw(@ISA);

@ISA = qw(Wx::App);

sub OnInit {
  my( $this ) = shift;

  my( $frame ) = MyFrame->new();

  $this->SetTopWindow( $frame );

  $frame->Show( 1 );
}


package MyFrame;

use vars qw(@ISA);

@ISA = qw(Wx::Frame);

sub new {
  my( $this ) = shift->SUPER::new( undef, -1, 'Hello, world!',
                                   [200,200] , [350, 100] );
  return $this;
}


package main;

my( $app ) = MyApp->new();
$app->MainLoop();
[download]

use Wx qw[:everything];
*Wx::App::OnInit = sub {1};
my $a = Wx::App->new;
my $f = Wx::Frame->new( undef, -1, 'Hello, world!',
                                   [200,200] , [350, 100] );
$a->SetTopWindow($f);
$f->Show(1);
$a->MainLoop();
__END__
[download]

Books don't mean much (perl can be easily learned from POD, and why should learning a simple GUI framework require a book).

The wxWindows docs are plentiful and they are extremely clear, and the wxPerl version of them comes with Perl: notes, which explain any differences in the API.

The wxPerl mailing list does indeed have a search engine, even if you failed to see it (i do not just post links blindly, loook to your left here), and Mattia is very responsive (not many questions come up that are unanswereable by Mattia, and those that are, you just take straight to the wxWindows mailing lists).

update: wxPerl is less of a mystery than perlTk ever is/will be to anyone new to either.

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! ** The Third rule of perl club is a statement of fact: pod is sexy.