sysopen HANDLE, "./adressen.db", O_RDWR|O_CREAT or die;
binmode(HANDLE, ":encoding(utf8)");
tie my @adressen, 'Tie::File', \*HANDLE, recsep => "---\n" or die;