Well I still haven't given up on this, I will be screwed if I can't use Perl & Teradata! I thought the problem might be with our proxy server so I looked up DBD::Proxy. Here's my latest version with the DBD::Proxy stuff included:

#!/usr/bin/perl
#
# DBCInfo Query Based on Cannonical Perl DBI connection to Mysql.
######################################################################
+########

use strict;
use warnings;

use DBI;
use DBD::Proxy;
use DBD::Teradata;

my $host = "Host.Address";  # = "localhost", the server your are on.
my $db = "User";       # your username (= login name  = account name )
my $user = $db;           # your Database name is the same as your acc
+ount name.
my $pwd = 'Password';             # Your account password

# connect to the database.

print(__PACKAGE__ . ':' . __LINE__ . ":Connecting...\n");
my $dbh = DBI->connect( "DBI:Proxy:hostname=Proxy.Server.Address;port=
+8080;dsn=DBI:Teradata:$host", $user, $pwd)
        or die "Connecting : $DBI::errstr\n ";
print(__PACKAGE__ . ':' . __LINE__ . ":Connected.\n");

my $sql = "SELECT * FROM DBC.DBCInfo";


# executing the SQL statement.


my $sth = $dbh->prepare($sql) or die "preparing: ",$dbh->errstr;
$sth->execute or die "executing: ", $dbh->errstr;

print "content-type: text/html\n\n";


# one of the functions to retrieve data from the table results
# check perldoc DBI for more methods.


while (my $row = $sth->fetchrow_hashref)        
   {
   foreach(sort(keys(%$row)))    
      {
      print("$_:\[$row->{$_}\]\n");
      }
   }
[download]

I had to install RPC::PlClient to get DBD::Proxy to work, and when I first tried my new version it complained about maxmessage size being too small. I had to increase that a bunch in RPC::PlClient to get DBD::Proxy to work, but when it did I got right back to the problem I started with which is my DBI::connect statemnent doesn't return. No error messages or warnings.

Another weird thing is that I can connect to a local demo Teradata database just fine with Perl (it is TD V2R5.0) but I can't connect to our two servers here (TD V2R5.1). I have had Perl working in the past to V2R5.1 servers, but not on this PC or at this location.

I'm running Windoze XP, ActiveState Perl 5.8.7, DBI 1.48 & DBD-Teradata 1.20

Don't make me have to go back to VB! HELP! Update: I've traced it back to DBI::_new_handle. In this function another is called DBI::_setup_handle which doesn't seem to exist (at least I can't find it). Does anyone know what is going on here?