$dbh = DBI->connect('dbi:Oracle:'.$TNS, $User, $Pass) || die $!;