my $rv  = 0;
my $dbh = DBI->connect(...);
my $sth = $dbh->prepare('{?=call name_of_sproc()}');
$sth->bind_param_inout(1, \$rv, 4);
$sth->execute();
$sth->finish();
print "return value: $rv\n";