#!perl.exe

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Outlook';

use DBI();

my $dbhost = '1.2.3.4';
my $dbuser = 'user';
my $dbdb = 'ssis';
my $dsn = "DBI:mysql:database=$dbdb;host=$dbhost";
my $dbh;

print "Connecting to DB ...\n";
print "dsn: $dsn\n";
$dbh = DBI->connect($dsn,$dbuser,'') or die "couldn't connect to $dbhost: " . DBI->errstr . "\n";

print "Done with DB connection\n";

##</code><code>##

C:\Data\Scripts\Exchange>mysql_connect.pl
Connecting to DB ...
dsn: DBI:mysql:database=ssis;host=1.2.3.4

C:\Data\Scripts\Exchange>