sub ora_connect {
    my $user = shift;
    my $sid = shift;
    my ($login,$pass,$sid,$hostname) = ora_vars($user,$sid);
    my $dbh = DBI->connect("DBI:Oracle:", "$login\@$sid", $pass);
    die "Couldn't connect to Oracle: $!" unless $dbh;
    $dbh->{LongReadLen} = 66000;
    $dbh->{LongTruncOk} = 1;
    return $dbh;
}