#!/usr/bin/perl
use strict;
use warnings;
use TK;
my $main = MainWindow->new(-title=>'Ich bin ein Programm');

# irgendwelche Widgets

MainLoop;