#!/usr/bin/perl

use strict;
use TK;

my $haupt = new MainWindow;

$haupt->Label(-text => "Greetings!")->pack;

$haupt->Button(-text=>"Beenden",
-command=>[$haupt=>'destroy']
)->pack;
$haupt->MainLoop(); # hier fehlte was!