{
  my $dbh;
  sub get_db_prod {
    unless (defined ($dbh)) {
      $dbh =  DBI->connect(
        ('DBI:Sybase:' . prod_server),
        prod_user, prod_pass,
        {PrintError => 0, AutoCommit => 0}
      ) or die $DBI::errstr;
    }
    return $dbh;
  }
}