use DBI;
my $dbh = DBI->connect('DBI:ODBC:NAME','user','pass') || die $!;