do {
  my $f = undef;
  (
    "main",
    "D:/ulisse/perl5.26.64bit/perl/lib/Encode.pm",
    0,
    "main::BEGIN",
    1,
    $f,
    $f,
    $f,
    2018,
    "UUUUUUUUUUUUUUUUU\5",
    $f,
  );
}
Prototype mismatch: sub main::decode ($$;$) vs none at test_decode01.pl line 26.
Subroutine decode redefined at test_decode01.pl line 23.
abc