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