my $dsn = 'dbi:ODBC:driver=XXX;host=192.168.1.25;port=1433';

my $dbh = DBI->connect($dsn, 'master5', '123456')
  or die "Error in connect: $DBI::errstr\n";