sub checkdbm {
  my $hashref=shift;
  my $key=shift;
  
  if (-f "$key-dbm.db") {
    return;
  }

  tie (%{$hashref->{$key}},'NDBM_File',"$key-dbm",O_RDWR|O_CREAT,0640);

}