use HTML::Form;
{ no warnings 'redefine';
  *HTML::Form::FileInput::legacy_code = sub {
    ... fixed code ...
  };