use strict;
use DBI;


my $dbh = DBI->connect('DBI:mysql:ligas','perlclient','todito')
    or die "Couldn't open database: $DBI::errstr; stopped";

##</code><code>##

DBI connect('ligas','perlclient',...) failed: Client does not support authentication protocol requested by server; consider upgrading MySQL client at pruebadbi.pl line8
Couldn't open database: Client foes not support authentication protocol requested by server; consider upgrading MySQL client; stopped at pruebadbi.pl line 8.