use DB_File;
our (%h, $k, $v) ;
    unlink $db_file;
    tie %h, "DB_File", $db_file, O_RDWR|O_CREAT, 0666, $DB_HASH
        or die "Cannot open file '$db_file': $!\n";