tie %dictf, "DB_File", "f.db", O_RDWR, 0666, $DB_BTREE or die "Cannot open file f.db: $!\n";