Select Code to Download

use strict;
use Tk;
...
my $mw = MainWindow->new( -height => 100, -width => 350);
$mw->title ("Hello, world!");
MainLoop;

use strict;
use Wx;
...

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