Adjusted all perl scripts to use one generic db interface db.pm