use strict;
use warnings;
use WWW::Mechanize;

my $agent = WWW::Mechanize->new(
cookie_jar => {},
);
$agent->get('http://example.org/blah/fasel.html');
$agent->form_number(1);
$agent->select('javatest', '2.');
$agent->field('two', '2');
$agent->select('hauptkategorie', '2',);
$agent->select('unterkategorie', '4.2', '100');
$agent->submit();