my $tree = HTML::TreeBuilder->new;
$tree->parse_file($file);
$tree->eof;

my @divs = $tree->find_by_attribute('class','formline');
for my $div (@divs) {
	my $label_div = $div->look_down('class','formlabel') or next;
	my $label = $label_div->as_text;
	my $input_div = $div->look_down('class','forminput') or next;
	my $input = $input_div->as_text;
	print "$label $input\n";
}