#!/usr/bin/perl -w

use strict;
use warnings;
use DBI;
use DBD::Teradata;


print "DBI::VERSION: $DBI::VERSION\n";
use DBD::Teradata;
print "DBD::Teradata::VERSION: $DBD::Teradata::VERSION\n";

#use strict;       # General syntax-enforcing module.
use POSIX;        # to get the localtime() routine

print "Connecting to DB\n";

my $dbh = DBI->connect('dbi:Teradata:xxxxx:1025', 'xxxx', 'xxxxxxxx')
        or die "ERROR: Unable to connect to database...\n" . DBI->errstr;

print "Teradata DB Connected\n";

$dbh->disconnect;

print "Disconnected Teradata DB\n";

print "Script Ends here\n";