#!/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->form(1) if $agent->forms and scalar @{$agent->forms};

$agent->get('http://server/page_with_form/');
$agent->form(1) if $agent->forms and scalar @{$agent->forms};

$agent->form_number(1);
$formfiller->add_filler( 'dayOfWeek' => Fixed => 'SUN' );

$formfiller->fill_form($agent->current_form);

$agent->click('');