#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize;
my $w = WWW::Mechanize->new();


my $url = "http://local/";
$w->get( $url );
$w->follow_link(text => "RecentChanges");
$w->follow_link(text => "AutoEditBox");

$w->submit_form(
    form_number => 2,
    button      => 'button-edit',
);

$w->form_number(2);
my $wiki_text = $w->field('wiki_text');  # resets the field !
$w->field('wiki_text', $wiki_text ."\nItt jart Matyas\n");
$w->click('button-save');

