#!/usr/bin/perl -w

use strict;
use Tk;

my $main = MainWindow->new;
$main->Label(-text => 'Hello, world!')->pack;
$main->Button(-text => 'Quit',
	      -command => [$main => 'destroy']
	     )->pack;
MainLoop;