要使用Perl連接數據庫，可以使用Perl的DBI模塊。以下是連接MySQL數據庫的示例代碼：
use DBI;
# 設置數據庫連接信息
my $driver = "mysql";
my $database = "mydatabase";
my $host = "localhost";
my $port = "3306";
my $username = "myusername";
my $password = "mypassword";
# 連接數據庫
my $dsn = "DBI:$driver:database=$database;host=$host;port=$port";
my $dbh = DBI->connect($dsn, $username, $password) or die "無法連接數據庫: $DBI::errstr";
# 執行SQL查詢
my $query = "SELECT * FROM mytable";
my $sth = $dbh->prepare($query);
$sth->execute();
# 獲取查詢結果
while (my @row = $sth->fetchrow_array()) {
print join(", ", @row)."\n";
}
# 斷開數據庫連接
$dbh->disconnect();
在上述代碼中，首先需要設置數據庫連接信息，包括數據庫驅動（driver）、數據庫名（database）、主機（host）、端口（port）、用戶名（username）和密碼（password）。
然后使用DBI->connect()方法連接數據庫，并將連接信息傳遞給它。如果連接成功，將返回一個數據庫句柄（dbh）。
接下來，使用prepare()方法準備SQL查詢，并使用execute()方法執行查詢。
最后，使用fetchrow_array()方法從查詢結果中獲取每一行的數據，并打印出來。
最后使用disconnect()方法斷開數據庫連接。
