tie (%DATABASE, "DB_File", "$OPTIONS{database_dir}/database.db", O_RDWR|O_CREAT, 0755, $DB_BTREE) || die "Cannot open database: $!\n";