[ bless({ accept_charset => "UNKNOWN", action => bless(do{\(my $o = "http://our.intranet/information/participant.asp")}, "URI::http"), attr => { botid => 0, method => "POST" }, default_charset => "UTF-8", enctype => "application/x-www-form-urlencoded", inputs => [ bless({ name => "Name", size => 20, type => "text", value => "", value_name => "", }, "HTML::Form::TextInput"), bless({ type => "submit", value => "Search", value_name => "" }, "HTML::Form::SubmitInput"), ], method => "POST", }, "HTML::Form"), bless({ accept_charset => "UNKNOWN", action => bless(do{\(my $o = "http://our.intranet/information/participant.asp")}, "URI::http"), attr => { method => "POST", name => "fpdbr_0", target => "_self" }, default_charset => "UTF-8", enctype => "application/x-www-form-urlencoded", inputs => [ bless({ name => "fpdbr_0_PagingMove", type => "button", value => " -- ", value_name => "", }, "HTML::Form::SubmitInput"), bless({ name => "fpdbr_0_PagingMove", type => "button", value => " -- ", value_name => "", }, "HTML::Form::SubmitInput"), bless({ name => "fpdbr_0_PagingMove", type => "submit", value => " > ", value_name => "", }, "HTML::Form::SubmitInput"), bless({ name => "fpdbr_0_PagingMove", type => "submit", value => " >| ", value_name => "[1/100]", }, "HTML::Form::SubmitInput"), bless({ name => "Name", readonly => 1, type => "hidden", value => "", value_name => "", }, "HTML::Form::TextInput"), ], method => "POST", }, "HTML::Form"), ]