perl连接mysql

use DBI;
my $dbname = "huangjiashun";
my $location = "localhost";
my $database = "DBI:mysql:$dbname:$location";
my $db_user = "huangjiashun";
my $db_pass = "huangjiashun2015";
my $dbh = DBI->connect($database,$db_user,$db_pass);
my $sql = "SELECT *  FROM gm_tf";
my $sth = $dbh->prepare($sql);#准备
$sth->execute() or die "无法执行SQL语句:$dbh->errstr"; #执行
        while (@data = $sth->fetchrow_array()) {#fetchrow_array返回row
        print "Email:$data[0]\t Telephone:$data[1]\n";
}
$sth->finish();
$dbh->disconnect;#断开数据库连接