尝试使用perl脚本访问MySQL

Question

学习使用Perl DBI和MySql。

需要做相当于这个命令的

/usr/local/mysql/bin/mysql -u root -p

在Perl脚本中。

这是我正在使用的脚本：

use strict;
use warnings;
use v5.10; # for say() function
use DBI;

my $dsn = "DBI:mysql:youtube_data_tmp:localhost";
my $username = "root";
my $password = '';

say "Perl MySQL INSERT Demo";

my %attr = (PrintError=>0,RaiseError=>1 );
my $dbh = DBI->connect($dsn,$username,$password,\%attr);

我不断得到的错误是：

install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (you may need to install the DBD::mysql module)

当我尝试从CPAN下载DBD :: mysql时，我不断收到此错误：

  

捆绑文件“/Users/Zhiang/.cpan/Bundle/DBD/mysql.pm”可能已损坏   包文件。它似乎不包含任何包定义。   请检查文件，如果是伪造的，请删除它。   很抱歉给您带来不便。

我真的迷路了，并且知道从哪里开始。这是Perl脚本问题还是模块问题？