sub get_Origserver() {
   919
   920  print "******GETTING SERVER NAME OF THE DB BEING COPIED******\n";
   921
   922  my ($dbh, $Origdb) = @_;
   923  print "This is the db $dbh\n";