package DB::DBctrl; 
#use strict;     
our @EXPORT_OK = qw(svhash svdb mvdbsub mvdbhead);# externals   
my ($dbhandx, $fail, etc, ...) = ("","", etc, ...);
sub svhash {	

  return ($dbhandx, $fail);	

}