#Parse html file using TreeBuilder Module 
use strict;
use warnings;
use HTML::TreeBuilder 3;

#Open text file to redirect treebuilder output to file
open OUT, '>', $treefile 
  or die "cannot open $treefile for writing ; $!";
 
my $root = HTML::TreeBuilder->new;
$root->parse_file($htmlfile) or die "could not open $htmlfile for parsing\n";

 
my @div_class = $root->find_by_attribute("class","forminput");
foreach my $node (@div_class) {
        print OUT $node->content_list();
        print OUT "\n";
}
close OUT;