use strict;
use WWW::Mechanize;
use Storable qw(store retrieve freeze thaw);

# init a mech instance
my $mech = WWW::Mechanize->new();

# on first instance...
if(! -f 'stored_mech.dat') {
    # create, get, freeze, and store
    $mech->get('http://localhost/mech-form.php');
    store([freeze($mech)], 'stored_mech.dat');
    exit;
}
# on subsequent instance...
else {
    # retrieve, thaw, and submit form
    my $stored = retrieve('stored_mech.dat');
    $mech = thaw($stored->[0]);
    $mech->submit_form(form_number=>1);
}