sub get_Origserver() {
print "******GETTING SERVER NAME OF THE DB BEING COPIED******\n";
my ($dbh) = @_;
}