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

##</code><code>##

use strict;
use warnings;

use URI::file      qw( );
use WWW::Mechanize qw( );

my $mech = WWW::Mechanize->new();
$mech->get(URI::file->new_abs('file.html'));

$mech->form_number(1);
$mech->field("headline","MyHeadline");
$mech->field("thecontent","MyContent");
$mech->field("categories[some_tag]","Blah");
$mech->click("publish");

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

##</code><code>##

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

##</code><code>##

POST file:///path/to/file.html
Accept-Encoding: gzip
Referer: file:///path/to/file.html
User-Agent: WWW-Mechanize/1.34
Content-Length: 70
Content-Type: application/x-www-form-urlencoded

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

##</code><code>##

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

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