#! c:/perl/bin/perl.exe
#
# 
#
#
#
use strict;

use DBI;
use DBD::ODBC;
use DBD::ADO;

use Win32::OLE;
use Win32::ODBC;
#use Win32::SqlServer;


my $server = "ABCB00062\\Dev";
my $dbusername = "uk_ggg\\xyz12345";
my $dbpassword = '7seven7';
my $database = 'ukdevxxxx';

my $Error_Message = "\nThere Was A Problem Connecting To The Database\n";

my $dbh;    #Database Handler

#$dbh = DBI->connect("DBI:ODBC:driver={SQL Server};Server=$server;Database=$database;UID=$dbusername;PWD=$dbpassword") ||  die "$Error_Message $DBI::errstr";

$dbh = DBI->connect("DBI:ODBC:dsnname;Server=$server;Database=$database;UID=$dbusername;PWD=$dbpassword")