perl调用oracle存储过程的问题

weikunlun

存储过程名字
CREATE OR REPLACE  PROCEDURE "SHANXI"."TEST" ( aa in integer,bb
    out integer         
   
   )
IS
BEGIN
  bb:=abs(aa);
END test;


perl脚本中的内容
my $a;
    $a = 0;
    print "ssssssss\n";

   $sth = $dbh->prepare( "BEGIN shanxi.test( ?, ? ); END;" );   
   print "aaaaaa\n";  
    $sth->bind_param( 1, 22 );
     print "bbbbbbb\n";
    $sth->bind_param_inout( 2,\$a,10000) or die $sth->errstr;

    print "ccccccc\n";
    $sth->execute();
     print "ddddddddd\n";
    print "Stored procedure returned $a \n";
   
   
   
   
错误信息
ssssssss
aaaaaa
bbbbbbb
Can't bind output values (currently) at test_store.pl line 307.
怎么回事啊？谢谢了