#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow->new;

my $frame = $mw->Frame->pack;
$frame->Label(-text => 'Hello, world!')->pack;
$frame->Button(-text => 'Quit', -command => sub { exit })->pack;

MainLoop;