my $packed = pack("i", 15);
$packed .= '$';
# #1
$sth = $dbh->prepare("exec my_proc ?");
$sth->execute($packed);

# #2
$sth = $dbh->prepare("exec my_proc $packed");
$sth->execute();