#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use HTML::TokeParser::Simple;
use LWP::Simple;
use MIME::Base64;

# Replace with actual URL.
my $url = "http://localhost/~jimmy/tag.htm";
my $mech = WWW::Mechanize->new();
my $page = $mech->get ($url);
my $htp = get($url);
my $p = HTML::TokeParser::Simple->new(\$htp) || die "Can't open page: $!";
my $name = {};
my @names;
# Replace with actual values
my $user = "user";
my $pass = "pass";
my $auth = 'Basic ' . encode_base64("$user:$pass");
#print $auth;

while (my $token = $p->get_tag('input'))
{
	next unless $token->return_attr('type') =~ /radio/i;
	if ($token->return_attr('name') =~ /^(senderaction-.*)/)
         {
		$name->{'name'} = $1;
		$name->{'value'} = 3;
		push @names, $name;
	}
}
$mech->add_header('Authorization' => $auth);
$mech->submit_form(form_number => 1, fields => \@names);
#print $mech->response();
#print $mech->content();
