#!/usr/bin/perl
open ($fh,'<','config.dat') or die $!;
my $config_neu = eval <$fh>;
print Dumper($config_neu);