Select Code to Download

use DBctrl qw(svhash);
sub dbme {
...
  #.....
  return ($dbhand, $fail);    
}

sub svhash {    
    ($db, $hm, $makedb, $duplicates, $bdbtype) = @_;
...
    return ($dbhandx, $fail);

}