use strict;
use warnings;
use diagnostics;
use Data::Dumper();   # perl
use Data::Serializer; # perl
use DBI;              # GNU General Public License or the Artistic License
use DBD::MySQL;       # perl
use Encode::Unicode;  # ?
use FindBin qw($Bin); # perl
use lib qw(pm/);      # -
use Tk;               # ?
use Tk::Carp qw/tkwarn tkdie/; # perl
use Tk::Dialog;       #
use Tk::Font;         #
use Tk::JPEG;         #
use Tk::PNG;          #
use Werbung;
use Win32::ODBC;      # GPL