tie %database, 'AnyDBM_File', "bar", O_RDWR|O_CREAT, 0666 or die "doh $!\n";