How about something like:

{
my @stmterrs;
}
DDL_stmtlist: DDL_statement(s? /;/) {
    if (@stmterrs) {
      push(@{$thisparser->{errors}}, @stmterrs);
      undef;
    } else { 1; } }

DDL_statement: whatever
   |  {
       push(@stmterrs, ["something fishy", $thisline]);
      } <resync: /[^;]*/s >
[download]

DDL_statement will now "succeed" until the end of the input. But you get to keep every error you encounter along the way.