Select Code to Download

$mech->response()->request()->as_string()

use strict;
use warnings;
...
$mech->click("publish");

print $mech->response()->request()->as_string()

<form method="POST">
<input type="text" name="headline" />
...
<input type="text" name="categories[some_tag]" />
<input type="submit" name="publish" />
</form>

POST file:///path/to/file.html
Accept-Encoding: gzip
...
Content-Type: application/x-www-form-urlencoded

headline=MyHeadline&thecontent=MyContent&categories%5Bsome_tag%5D=Blah

>perl -wle"use LWP; print LWP->VERSION"
5.825

>perl -wle"use WWW::Mechanize; print WWW::Mechanize->VERSION"
1.34