Mysql and perl DBI

I am trying to execute the below code, I am getting the error below

use DBI;
use Time::Local;
use File::Copy;
use Date::Calc qw(:all  );
use Text::Wrap;
use IniFile;
use strict;
use Cwd;

my $db_host = "dlssql01";
my $db_name = "invoice_tmp";
my $db_name_c = "DBI:mysql:" . "$db_name;host=$db_host;mysql_multi_results=1";
my $dbh = DBI->connect( $db_name_c,"x", "y" )   || die "Database connection not made: $DBI::errstr";
my $sproc = $dbh->prepare("CALL invoice_tmp.sp_get_subscriptions(256)");
$sproc->execute      || warn "Execute failed with following error $DBI::errstr";


D:\CLEC\v5\Invoice>perl  invdriver.pl
DBD::mysql::st execute failed: PROCEDURE invoice_tmp.sp_get_subscriptions can't
return a result set in the given context at invdriver.pl line 15.
Execute failed with following error PROCEDURE invoice_tmp.sp_get_subscriptions c
an't return a result set in the given context at invdriver.pl line 15.
Driver has not implemented the disconnect_all method. at D:/Perl/site/lib/DBI.pm
 line 552
END failed--call queue aborted.


DELIMITER $$

DROP PROCEDURE IF EXISTS `invoice_tmp`.`sp_get_subscriptions`$$

CREATE PROCEDURE `sp_get_subscriptions`(p_invoiceid bigint)
BEGIN
SELECT * FROM invoice.invoice_subscription where InvoiceId = p_invoiceid ;
END$$

DELIMITER ;