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

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

DBI->trace(5);
my $dbh      = DBI->connect(
               "DBI:mysql:database=$sqlbase;host=$sqlhost;port=3306",
               $user, $password);

exit (0);

##</code><code>##

    DBI 1.48-ithread default trace level set to 0x0/5 (pid 1448)
    -> DBI->connect(DBI:mysql:database=debloat;host=localhost;port=3306, JHD, **
**)
    -> DBI->install_driver(mysql) for MSWin32 perl=5.008004 pid=1448 ruid=0 euid
=0
       install_driver: DBD::mysql version 2.9004 loaded from C:/Perl/site/lib/DB
D/mysql.pm
    New DBI::dr (for DBD::mysql::dr, parent=, id=)
    dbih_setup_handle(DBI::dr=HASH(0x1b61a24)=>DBI::dr=HASH(0x1c63324), DBD::mys
ql::dr, 0, Null!)
    dbih_make_com(Null!, 0, DBD::mysql::dr, 84, 0) thr#15d4064
    dbih_setup_attrib(DBI::dr=HASH(0x1c63324), Err, Null!) SCALAR(0x1c4a3cc) (al
ready defined)
    dbih_setup_attrib(DBI::dr=HASH(0x1c63324), State, Null!) SCALAR(0x1b64d78) (
already defined)
    dbih_setup_attrib(DBI::dr=HASH(0x1c63324), Errstr, Null!) SCALAR(0x1b19f9c)
(already defined)
    dbih_setup_attrib(DBI::dr=HASH(0x1c63324), TraceLevel, Null!) 0 (already def
ined)
    dbih_setup_attrib(DBI::dr=HASH(0x1c63324), FetchHashKeyName, Null!) 'NAME' (
already defined)
    <- install_driver= DBI::dr=HASH(0x1b61a24)
    !! warn: 0 CLEARED by call to connect method
    -> connect for DBD::mysql::dr (DBI::dr=HASH(0x1b61a24)~0x1c63324 'database=d
ebloat;host=localhost;port=3306' 'JHD' **** HASH(0x1c65bf8)) thr#15d4064
    New DBI::db (for DBD::mysql::db, parent=DBI::dr=HASH(0x1c63324), id=HASH(0x1
bfc33c))
    dbih_setup_handle(DBI::db=HASH(0x1c4a294)=>DBI::db=HASH(0x1b1abcc), DBD::mys
ql::db, 1b5d96c, HASH(0x1bfc33c))
    dbih_make_com(DBI::dr=HASH(0x1c63324), 1c373d4, DBD::mysql::db, 600, 0) thr#
15d4064
    dbih_setup_attrib(DBI::db=HASH(0x1b1abcc), Err, DBI::dr=HASH(0x1c63324)) SCA
LAR(0x1b65120) (already defined)
    dbih_setup_attrib(DBI::db=HASH(0x1b1abcc), State, DBI::dr=HASH(0x1c63324)) S
CALAR(0x1b6603c) (already defined)
    dbih_setup_attrib(DBI::db=HASH(0x1b1abcc), Errstr, DBI::dr=HASH(0x1c63324))
SCALAR(0x1b6600c) (already defined)
    dbih_setup_attrib(DBI::db=HASH(0x1b1abcc), TraceLevel, DBI::dr=HASH(0x1c6332
4)) 0 (already defined)
    dbih_setup_attrib(DBI::db=HASH(0x1b1abcc), FetchHashKeyName, DBI::dr=HASH(0x
1c63324)) 'NAME' (already defined)
    dbih_setup_attrib(DBI::db=HASH(0x1b1abcc), HandleSetErr, DBI::dr=HASH(0x1c63
324)) undef (not defined)
    dbih_setup_attrib(DBI::db=HASH(0x1b1abcc), HandleError, DBI::dr=HASH(0x1c633
24)) undef (not defined)
imp_dbh->connect: dsn = database=debloat;host=localhost;port=3306, uid = JHD, pw
d = JHD
imp_dbh->MyLogin: dbname = debloat, uid = JHD, pwd = JHD,host = localhost, port
= 3306
imp_dbh->mysql_dr_connect: host = localhost, port = 3306, uid = JHD, pwd = JHD
imp_dbh->mysql_dr_connect: client_flags = 2
imp_dbh->mysql_dr_connect: <-Client does not support authentication protocol req
uested by server; consider upgrading MySQL client error 1251 recorded: Client do
es not support authentication protocol requested by server; consider upgrading M
ySQL client
    <> DESTROY(DBI::db=HASH(0x1c4a294)) ignored for outer handle (inner DBI::db=
HASH(0x1b1abcc) has ref cnt 1)
    -> DESTROY for DBD::mysql::db (DBI::db=HASH(0x1b1abcc)~INNER) thr#15d4064
         DESTROY for DBI::db=HASH(0x1b1abcc) ignored - handle not initialised
       ERROR: 1251 'Client does not support authentication protocol requested by
 server; consider upgrading MySQL client' (err#0)
    <- DESTROY= undef at C:/Perl/site/lib/DBD/mysql.pm line 132 via practice\sql
test.pl line 12
    dbih_clearcom 0x1c4a294 (com 0x1a48d34, type 2) done.

    !! ERROR: 1251 'Client does not support authentication protocol requested by
 server; consider upgrading MySQL client' (err#0)
    <- connect= undef at C:/Perl/site/lib/DBI.pm line 598
    -> $DBI::errstr (&) FETCH from lasth=HASH
    >> DBD::mysql::dr::errstr
    <- $DBI::errstr= 'Client does not support authentication protocol requested
by server; consider upgrading MySQL client'
       DBI connect('database=debloat;host=localhost;port=3306','JHD',...) failed
: Client does not support authentication protocol requested by server; consider
upgrading MySQL client
DBI connect('database=debloat;host=localhost;port=3306','JHD',...) failed: Clien
t does not support authentication protocol requested by server; consider upgradi
ng MySQL client at practice\sqltest.pl line 12
    -- DBI::END
    !! ERROR: 1251 CLEARED by call to disconnect_all method
    -> disconnect_all for DBD::mysql::dr (DBI::dr=HASH(0x1b61a24)~0x1c63324) thr
#15d4064
    <- disconnect_all= (not implemented) at C:/Perl/site/lib/DBI.pm line 677 via
 practice\sqltest.pl line 0
!   -> DESTROY in DBD::_::common for DBD::mysql::dr (DBI::dr=HASH(0x1c63324)~INN
ER) thr#15d4064
!   <- DESTROY= undef during global destruction
    dbih_clearcom 0x1b61a24 (com 0x1c373d4, type 1) done.

!   <> DESTROY for DBI::dr=HASH(0x1b61a24) ignored (inner handle gone)