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

use Tk;

my $fenster = MainWindow->new();

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

MainLoop();