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/;