#! /usr/bin/perl
use strict;
use warnings;
use Win32::ODBC;

my $db;
my $DSN = "DSN:IBUeMBA_DSN;UID=sa;PWD=xxxx";

if (!($db = new Win32::ODBC($DSN))) {
    print "Error connecting to $DSN\n";
    print "Error: " . Win32::ODBC::Error() . "\n";
    exit;
}