#!/usr/bin/perl
use strict;
use warnings;
use Tkx;
Tkx::package_require('tile');
Tkx::tile__setTheme('xpnative');

my $mw = Tkx::widget->new(".");

$mw->new_ttk__button(
    -text => 'Hello, world',
    -command => sub { $mw->g_destroy; },
)->g_pack;

Tkx::MainLoop();