#!/usr/bin/perl --
use strict;
use warnings;
use Wx;
use Wx::Demo;
my $app    = Wx::SimpleApp->new;
my $demo   = Wx::Demo->new;
$demo->show_module( 'Wx::DemoModules::wxRichTextCtrl');
$demo->show_demo_window;
$app->MainLoop;
exit( 0 );
[download]