Select Code to Download

use WWW::Mechanize;
use encoding 'utf-8';
binmode STDOUT, ':utf8';
....
$mech->submit_form(form_name => 'form');

        $k =~ s/([\\\"])/\\$1/g;  # escape quotes and backslashes
        if (utf8::is_utf8($v)){
...
        }
        push(@parts,
         qq(Content-Disposition: form-data; name="$k"$CRLF$CRLF$v));<<
+/

use WWW::Mechanize;
binmode STDOUT, ':utf8';  # Removes 'wide character' warnings
...
      print "Success";
    }
}

print qq{Status: 200
Content-Type: text/html
...
  </FORM>
</body>
</html>};