use strict;
use DBI;


$| = 1;

my $server_name = 'rb_intra_sqldev';
my $database_name = 'RMBSAnalytics';

my $DSN = "DRIVER={SQL Server};Database=$database_name;Server=$server_name;uid=datapull;pwd=datapull"; 

my $dbh = DBI->connect("dbi:ODBC:$DSN", undef, undef) || die "Couldn't open database: $DBI::errstr\n";

$dbh->disconnect();