#/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use Tk;

my $mw = MainWindow->new();

$mw->title('Hallo Welt');

$mw->Label(-text => 'Hallo Welt!')->pack();

MainLoop();