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

# ausgelagerte Funktionen in einer Bibliothek 
require 'libary.pl';

# (eigentlich) globale Variablen
my $dies;
my %das;
my @jenes;

# Tk-Elemente (Buttons, Entries, etc)


# und bisher waren hier die Sub's, weil ich sie nicht auslagern konnte