my $connect_str = "Provider=SQLOLEDB.1;" .
                  "User Id=$uid;Password=$pwd;" .
                  "Data Source=$svr;" .
                  "Initial Catalog=$db";

my $conn = new Win32::OLE('ADODB.Connection')
   or die "Cannot make ADODB connection : " . Win32::OLE->LastError;

$conn->Open($connect_str) 
   or die "Cannot connect to $db on $svr : " . Win32::OLE->LastError;

$conn->Close;