tie %h,"DB_File",$users_dbm_file,O_RDWR|O_CREAT,0640,$DB_HASH ||
  die( "Cannot tie $users_dbm_file  $! \n" );