#!/usr/bin/perl -w use strict; use WWW::Mechanize; use HTML::TokeParser::Simple; my $mech = WWW::Mechanize->new(); my $name = {}; $mech->get ('http://linuxgazette.net/mailman/admindb/tag'); # insert password here. $mech->submit_form(form_number => 1, fields => {adminpw => ''}); my $p = HTML::TokeParser::Simple->new(\$mech->content) || die "Can't open page: $!"; while (my $token = $p->get_tag('input')) { next unless $token->return_attr('type') =~ /radio/i; if ($token->return_attr('name') =~ /(senderaction-[^">]*)/) { $name->{$1} = 3; } } # Eek! is this \%name or %name? $mech->submit_form(form_number => 1, fields => \%name);