open ($fh,'<','config.dat') or die $!;
my $config_neu = eval <$fh>;
die $@ if $@;
print Dumper($config_neu);