use DBI;

my $dbname = "数据库名";

my $location = "localhost";

my $database = "DBI:mysql:$dbname:$location";

my $db_user = "mysql用户名";

my $db_pass = "mysql密码";

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;#断开数据库连接