如何从Perl调用MySQL存储过程？

cpan install DBI
cpan install DBD::mysql

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

# 数据库连接信息
my $dsn = "DBI:mysql:database=your_database;host=your_host;port=your_port";
my $username = "your_username";
my $password = "your_password";

# 连接到数据库
my $dbh = DBI->connect($dsn, $username, $password, { RaiseError => 1 })
    or die "Error connecting to database: $DBI::errstr";

# 准备调用存储过程的SQL语句
my $sql = "CALL your_procedure()";

# 执行存储过程
my $sth = $dbh->prepare($sql);
$sth->execute();

# 处理结果集
while (my @row = $sth->fetchrow_array()) {
    print join(", ", @row), "\n";
}

# 关闭数据库连接
$dbh->disconnect();

perl call_procedure.pl