my($host)   = "<my IP address>";
 my($db)     = "myDb\@$host";
 my($port)   = 1433;
 my($dsn)    = "dbi:$driver:database=$db;port=$port" 

my($dbh)  = DBI->connect("dbi:ODBC:$db;$port", "me", "mypassword") || die(DBI->errstr);