use Data::Dumper;

my $DEBUG = 1; # nur für Debugausgabe auf 1 setzen!