Select Code to Download

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($response->content);
my $t = $tree->findnodes(qq{/html/body/form/div});
print $t->size;