use Tk;

my $main = MainWindow->new;

$main->Label(-text => 'Hello!'
)->pack;

MainLoop;