Select Code to Download

 use Fcntl;

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