my $t = tie my %cfg, 'DBFreezer', %cred or die $@;
$cfg{addr} = {
	name => 'Boo',
	prop => 'dog',
	misc => {
		weiteres => {
			foo => 'bar',
			date => strftime('%d.%m.%Y %X', localtime),
		}
	},
	env => 'Hier kann die Umgebung stehen...',
};
$cfg{'perl -v'} = join('',qx(perl -v));
$t->write or die $@;

print Dumper \%cfg;