You may try something like this:

$_ = $dbh->quote($_)
  for
  $subcomponentname,
  $subcomponentdescription;

my $sth = $dbh->prepare(<<"SQL")  or die "Can't prepare: " . $sth->err
+str();
declare \@SubComponentID int
exec spSubComponentADD $subcomponentname,
                       $subcomponentdescription,
                       \@SubComponentID OUTPUT
SQL

$sth->execute()
  or handle_error ("Can't execute SQL" . $sth->errstr(), $dbh, $sth);

my (@data) = $sth->func('syb_output_params');
[download]

Update: code shorten and $dbh->quote added