print(__PACKAGE__ . ':' . __LINE__ . ":Connecting...\n");
my $dbh = DBI->connect( "DBI:Teradata:$host", "$user", "$pwd")
        or die "Connecting : $DBI::errstr\n ";
print(__PACKAGE__ . ':' . __LINE__ . ":Connected.\n");

##</code><code>##

main:17:Connecting...
DBI connect('eixxxxx.example.com','user12345',...) failed: Unexpected parcel 2658. at batch_hist line 18.
Connecting : Unexpected parcel 2658.
  at batch_hist line 18.