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");