いつもお世話になっております。堀と申します。

perlからストアドプロシージャーを呼びたいのですが
うまくいきません。どなたかご存知の方いますか？

こんな感じでテストしましたがダメでした。

hori@debian:~$ mysql -u root -p system
Enter password:
Welcome to the MySQL monitor. Commands end with ; or \g.
Your MySQL connection id is 9 to server version: 5.0.2-alpha-standard

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> delimiter '/';
mysql> create procedure proc1() begin select "Hello world"; end/
Query OK, 0 rows affected (0.00 sec)

mysql> call proc1();
-> /
+-------------+
| Hello world |
+-------------+
| Hello world |
+-------------+
1 row in set (0.00 sec)

Query OK, 0 rows affected (0.00 sec)

mysql>

hori@debian:~$ ./aa.pl
DBD::mysql::st execute failed: SELECT in a stored procedure must have
INTO at ./aa.pl line 6.
DBD::mysql::st fetchrow_arrayref failed: fetch() without execute() at
./aa.pl line 7.
hori@debian:~$


hori@debian:~$ cat aa.pl
#!/usr/local/bin/perl
use DBI;
$dbh =
DBI->connect("DBI:mysql:database=system;host=localhost",'root','???');
$dbh->do("set names ujis");
$sth = $dbh->prepare("call proc1()");
$sth->execute();
while($ref = $sth->fetchrow_arrayref()){
print join(',',@{$ref}),"\n";
}


hori@debian:~$