#!/usr/bin/perl

#use strict ;
use DB_File ;
#use vars qw( %h $k $v ) ;

#use GDBM_File;

tie %h, "DB_File", "diridx.db", O_RDWR|O_CREAT, 0640, $DB_HASH;

$h{dummy}=1;