帮忙看看

帮忙看看
下面程序在运行的时候出现问题:
#!/usr/bin/perl
#Fig.15.24:fig15_24.pl
#Creating a table.

use warnings;
use strict;
use DBI;
use DBD::mysql;

my $dbh=DBI->connect("DBI:mysql:db","root","123456",
{RaiseError=>1});

my $string="CREATE TABLE Users(
FirstName VARCHAR(30),
LastName VARCHAR(30),
Email VARCHAR(30),
Phone VARCHAR(30),
Continent ENUM('North America',
'South America',
'Europe',
'Asia',
'Africa',
'Australia',
'Antarctica'),
OpSys ENUM('Windows NT',
'Windows 98',
'Macintosh',
'Linux',
'Other'),
Hours INT,
Rating INT)";

$dbh->do($string);

$dbh->do("INSERT INTO Users(
FirstName.LastName,Email,Phone,
Continent,OpSys,Hours,Rating)
VALUES('John','Doe','john\@doe.net',
'(555)555-5555','North America',
'Windows98',3,4)");

my $sth=$dbh->prepare("SELECT*FORM Users");
$sth->execute();

while(my @row=$sth->fetchrow_array()){
print("@row\n");
}

warn($DBI::errstr) if($DBI::err);
$dbh->disconnect();
$sth->finish();
用PERL运行后出现如下提示:
DBI connect('db','root',...) failed: Client does not support authentication protocol requested by server; consider upgrading MySQL client at fig15-24.pl line 10
大家帮忙看看如何解决!

要么是mysql版本太新了 要么是mysql版本太新了
要么是dbd-mysql太旧了

谢谢指点!