#! /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;
}

##</code><code>##

Error connecting to DSN:IBUeMBA_DSN;UID=sa;PWD=xxxx
Error: [911]  "[Microsoft][ODBC Driver Manager] Data source name not found and  no default driver specified"