use strict;
use DBI;
use warnings;
use diagnostics;

my $dsn       = 'MySQL';
my $user      = 'JHD';
my $password  = 'JHD';

my $dbh       = DBI->connect("DBI:ODBC:$dsn",$user,$password) ||
                die "Got error $DBI::errstr when connecting to $dsn\n";

exit (0);


##</code><code>##

use strict;
use DBI;
use warnings;
use diagnostics;

my $sqlhost  = 'localhost';
my $sqlbase  = 'debloat';
my $user     = 'JHD';
my $password = 'JHD';

my $dbh = DBI->connect("DBI:mysql:database=$sqlbase;host=$sqlhost",
                       $user, $password, {RaiseError => 1});

exit (0);

##</code><code>##

C:\Perl\bin>perl -w practice\sqltest.pl
Uncaught exception from user code:
DBI connect('database=debloat;host=localhost;port=3306',
'JHD',...) failed:
Client does not support authentication protocol 
requested by server; consider
upgrading MySQL client at practice\sqltest.pl line 11

DBI::__ANON__('undef', 'undef') called at 
C:/Perl/site/lib/DBI.pm line 664
DBI::connect('DBI', 
'DBI:mysql:database=debloat;host=localhost;port=3306
', 'JHD', 'JHD', 'HASH(0x15d4f58)')
called at practice\sqltest.pl line 11