No field names, eh?
Try something like this:
use WWW::Mechanize;
use strict;
my $url = 'http://server/path/to/form.html';
my $mech = WWW::Mechanize->new();
$mech->get($url);
die "can't get page!"
unless $mech->success &&
$mech->content =~ /look for something/;
die "can't find form!"
unless $mech->form_number(0);
my @values = ('learn', 'perl', [option => 'M']);
die "couldn't fill out form!"
unless $mech->set_visible(@values) == 3;
$mech->submit;
die "can't submit form!"
unless $mech->success &&
$mech->content =~ /something useful/;
Any better?
-David