#! 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")

##</code><code>##

U:\Doccuments\Scripts\Start>db2.pl
DBI connect('dsnname;Server=ABCB00062\Dev;Database=ukdevxxxx;UID=uk_ggg\\xyz12345;
PWD=7seven7','',...) failed: [Microsoft][ODBC Driver Manager] Data source
name not found and no default driver specified (SQL-IM002) at U:\Doccuments\Scri
pts\Start\db2.pl line 32