Perl gui using =Tkx= and objects

use Tkx;

my $mw = Tkx::widget->new(".");
my $b = $mw->new_button(
    -text => "Hello, world",
    -command => sub { $mw->g_destroy; },
);
$b->g_pack;

Tkx::MainLoop()