$ ./record.pl
Cannot initialize proxy daemon: Address already in use at /usr/lib/perl5/site_perl/5.8/HTTP/Proxy.pm line 271.

##</code><code>##

    $proxy->port( 3128 ); # the classical accessors are here!

##</code><code>##

    my $proxy = HTTP::Proxy->new;

##</code><code>##

Use of uninitialized value in substitution (s///) at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 173.
Use of uninitialized value in substitution (s///) at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 173.
Use of uninitialized value in substitution (s///) at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 173.
Use of uninitialized value in substitution (s///) at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder/Logger.pm line 173.
Can't locate object method "query_param" via package "(lots of stuff cut out) ... &time1=12%3A09&dayOfWeek=SUN&dayOfWeek=TUE=&save=Save" (perhaps you forgot to load "(lots of stuff cut out) ... &time1=12%3A09&dayOfWeek=SUN&dayOfWeek=TUE&save=Save"?) at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder.pm line 347.

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

use WWW::Mechanize;
use WWW::Mechanize::FormFiller;

my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();

$agent->get('http://server/page_with_form/');

$agent->form_name('manageDaemonForm');

$agent->tick('reportLogEnabled', 'on');
$agent->tick('dayOfWeek', 'TUE');
$agent->tick('dayOfWeek', 'SUN');
$agent->field('option', '1');
$agent->field('time1', '12:09');
$agent->tick('appendToReportLog', 'on');
$agent->click('save');

##</code><code>##

$ ./update_report_logging.pl
There are 4 forms named manageDaemonForm.  The first one was used. at ./update_report_logging.pl line 14