use DBctrl qw(svhash);
sub dbme {
  my ($dbtry, $makeyn, $hm) = @_;   
  #....
  $duplicates = 0;	
  $bdbtype = 'HASH';	
  
  ($dbhand, $fail) = svhash($dbtry, $hm, 
                    $makeyn, $duplicates, $bdbtype);
  #.....
  return ($dbhand, $fail);	
}