#!/usr/bin/perl -w


use strict;

use DBI;
use DBD::ODBC;

my $user = q/abc/;
my $password = 'defv';


my$dbh1 = DBI->connect("dbi:ODBC:DRIVER={SQL Server};Server=abc.cde.corp.org\\XYZ;Database=TEST;UID=$user;PWD=$password");