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" ;
  }