#!/usr/bin/perl use strict; use warnings; use Data::Dump 'dump'; use HTML::Form; use 5.010; my $html = <

Ausgabe:

HTMLHEREDOC ; my @forms = HTML::Form->parse($html,'http://www.perl-community.de'); say dump $forms[0]->click; my %tmp = ( name => 'selname', menu => [ { name => 'Zusanzeige1', value => 'zuswert1' }, { name => 'Zusanzeige2', value => 'zuswert2' }, { name => 'Zusanzeige3', value => 'zuswert3' }, ], value_name => 'Zusanzeige1', value => 'zuswert1', checked => 1, ); $forms[0]->push_input('option',{%tmp}); say dump $forms[0]->click;