CREATE PROCEDURE MyProcedure(
  IN v_M_FILE_ID VARCHAR(20),
  INOUT v_M_TRL_REC_CNT_VAR_N INT,
  INOUT v_M_FILE_RUL_01_C VARCHAR(10),
  INOUT v_M_FILE_RUL_02_C VARCHAR(10),
  INOUT v_M_FILE_RUL_03_C VARCHAR(10),
  INOUT v_M_FILE_RUL_04_C VARCHAR(10),
  INOUT v_M_D_VLID_APPL_NM VARCHAR(20),
  INOUT v_M_D_VLID_TY_C VARCHAR(10))

##</code><code>##

my ($M_TRL_REC_CNT_VAR_N, $M_FILE_RULE_01_C, \
    $M_FILE_RULE_02_C, $M_FILE_RULE_03_C,    \
    $M_FILE_RULE_04_C, $M_D_VLID_APPL_NM,    \
    $M_D_VLID_TY_C);

$sql = "CALL MyProcedure(\'$file_id\',
                     $M_TRL_REC_CNT_VAR_N,
                     \'$M_FILE_RULE_01_C\',
                     \'$M_FILE_RULE_01_C\',
                     \'$M_FILE_RULE_01_C\',
                     \'$M_FILE_RULE_01_C\',
                     \'$M_D_VLID_APPL_NM\',
                     \'$M_D_VLID_TY_C\')" ;

$sth = $dbh->prepare( $sql_ref )
    or die "Can't prepare statement $sql_ref: DBI::errstr";
$rc = $sth->execute
    or die "Can't execute statement: $DBI::errstr";

  if ( $DBI::err ) {
    die "Can't execute statement: $DBI::errstr" ;
  }

##</code><code>##

DBD::DB2::st execute failed: 
[IBM][CLI Driver][DB2/SUN] SQL0104N  An unexpected token "," was found following "LE_CTRL('fsaifdvd ',".  Expected tokens may include:  "<space>".  SQLSTATE=42601