#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

use DBI;
say "Perl MySQL Connect Demo";

my $dsn = "DBI:mysql:db:server";
my $username = "user";
my $password = 'password';

my $dbh = DBI->connect($dsn,$username,$password);


##</code><code>##

DBI connect('db:server','user',...) failed: SSL connection error: unknown error number at ./myscript.pl line 13.
 at /usr/lib/x86_64-linux-gnu/perl5/5.22/DBI.pm line 697.
	DBI::__ANON__[/usr/lib/x86_64-linux-gnu/perl5/5.22/DBI.pm:750](undef, undef) called at /usr/lib/x86_64-linux-gnu/perl5/5.22/DBI.pm line 752
	DBI::connect("DBI", "DBI:mysql:db:server", "user", "password") called at ./myscript.pl line 13