在Perl中与数据库进行交互通常使用DBI模块，以下是一个简单的Perl代码示例，连接到MySQL数据库并查询数据：

use DBI;# 数据库信息my $database = "database_name";my $host = "localhost";my $port = "3306";my $user = "username";my $password = "password";# 连接到数据库my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host;port=$port", $user, $password)or die "无法连接到数据库: $DBI::errstr";# 准备查询语句my $sql = "SELECT * FROM table_name";my $sth = $dbh->prepare($sql);# 执行查询$sth->execute();# 获取查询结果while (my @row = $sth->fetchrow_array()) {print join(", ", @row) . "\n";}# 断开与数据库的连接$dbh->disconnect();

在上面的代码中，我们首先使用DBI模块连接到数据库，然后准备查询语句并执行查询，最后遍历查询结果并输出。最后，我们断开与数据库的连接。您可以根据自己的需求修改查询语句和数据库信息。