Hi,

First you will want to add "use warnings;" and "use strict;". According to http://www.tek-tips.com/viewthread.cfm?qid=577057, you need to explicitly use the DBD:Teradata module.

use DBI;
use DBD::Teradata;
....
[download]

That's just my opinion though,

#!/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]