#!/usr/local/bin/perl -w

use strict;
use Tk;

my $mw = new MainWindow;
$mw->Label(-text => 'Hello World!')->pack;
$mw->Button(-text => 'Quit',
	    -command => sub{exit} )->pack;
MainLoop;