$dbh = DBI->connect('dbi:Oracle:ihr-live@ihr-live',"$uname","$password", {
               PrintError => 0,
               RaiseError => 0
               }