#!user/bin/perl -w

use strict;
use DBI;
my $user = "root";
my $password = "123";
my $url = "DBI:MysqL:database=database_name;host=IP";
my $dbh = DBI->connect($url,$user,$password) or die=$DBI::errstr;
正常的数据库操作

如果报错的话是没有数据库权限，用以下命令：

grant all PRIVILEGES on *.* to root@'%' identified by 'passwd';

passwd替换为自己的密码即可