use strict;
use warnings;
use HTML::TreeBuilder;
my $t = HTML::TreeBuilder->new_from_file(*DATA);
my @hidden_inputs = $t->look_down(
_tag => q{input},
type => q{hidden},
name => q{recid1},
);
for my $hidden_input (@hidden_inputs){
printf qq{*%s*\n}, $hidden_input->attr(q{value});
}
__DATA__
Data