use DBI;
use DBD::Teradata;
use DBD::Teradata::Crypt;
use DBD::Teradata::Diagnostic;
use DBD::Teradata::GetInfo;
use DBD::Teradata::PMAPI;
use DBD::Teradata::TypeInfo;
use DBD::Teradata::Utility;
use Time::HiRes qw(time);

my $dbh = DBI->connect("DBI:Teradata:$tdbc:1025",
                       $db_user,
                       $db_passwd,
                       {PrintError => 0 });

if ($DBI::err){
   print "\nEIS-430 Error connecting to $db_name \n DBI Err: $DBI::errstr \n";
   exit -1;
}
else {
   print "\nConnected to database $db_name ..\n";
}

exit 0;