#!/usr/bin/perl

use strict;
use lib qw(.);
use my_tk qw(MainLoop);

my $fenster = my_tk->new();

MainLoop();