use strict;
use File::Basename;
use Cwd;
use Date::Calc qw(Today Now);
use Sys::Hostname;
use DBI;
use DBD::ODBC::Teradata;

eval {
    my $tddsn = "odbc_entry";
    my $tduser = "username";
    my $tdpass = "password";
    
    $ENV{'ODBCINI'} = '/path/to/.odbc.ini';
   
    my $tddbh = DBI->connect("DBI:ODBC:DSN=$tddsn", $tduser, $tdpass, {PrintError => 0, RaiseError => 0 }) or die $DBI::errstr;
    
} unless ($@);