#!/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;
    }
}

$mech->submit_form(form_number => 1, fields => \%name);
