#!perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

my $label = $mw->Label(-text => 'Hallo Du!')->pack();

$mw->MainLoop();