#! /usr/bin/perl -w

use strict;
use DBI;

my $database="testdb";
my $host="server";
my $port="3306";
my $dsn = "DBI:ODBC:MSSQL:database=$database; host=$host; port=$port";
my $user = 'tester'; 
my $auth = 'password';
my $dbh = DBI->connect($dsn,$user,$auth,{ RaiseError => 1, AutoCommit => 1});

die "Can't connect: " . DBI->errstr() unless $dbh;

print "Success: connected\n";
$dbh->disconnect();

##</code><code>##

DBI connect('MSSQL:database=testdb; host=server; port=3306','tester',...) failed
: [Microsoft][ODBC Driver Manager] Data source name not found and no default dri
ver specified (SQL-IM002)(DBD: db_login/SQLConnect err=-1) at dbitest.pl line 12