#! perl -w scipt


use strict;
use warnings;
use DBI;

use DBD::ODBC;


my ($data_source, $database, $user_id, $password) = qw( <ip address> Series_requests ********* ********* ); 
my $conn_string = "driver={SQL Server}; Server=$data_source; Database=$database; Trusted_Connection=yes"; 

my $dbh = DBI->connect( "DBI:ODBC:$conn_string" ) or die $DBI::errstr;