Select Code to Download

use strict;
use DBI;
...

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

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 protoco
+l requested by server; consider upgrading MySQL client; stopped at pr
+uebadbi.pl line 8.