sub DbConnect {
print DEBUG "In DbConnect\n"; 
  use Sys::Hostname;
  $Hostname=hostname;
  $MyDB="db######";
  if($Hostname !~ /myurl/){
    $User="root"; #just for local version.
    $PW=''; #just for local version.
  } else {
    $User="db######";
    open(PASS,"$ProgOption{PasswordFile}");
    $PW=<"######">;
    chomp $PW;
  }
#print DEBUG "  $ProgOption{dbh}=DBI->connect('DBI:mysql:host=localhost;database=$MyDB','$User','$PW',{PrintError =>0, RaiseError => 1})\n";
  $ProgOption{dbh}=DBI->connect("DBI:mysql:host=localhost;database=$MyDB","$User","$PW",{PrintError =>0, RaiseError => 1});
  return $ProgOption{dbh};
}