Select Code to Download

my $tree = HTML::TreeBuilder->new_from_content($webcrawler->content())
+;

...
     } else {
         print "Not found";
        }

if (my $div = $tree->look_down(_tag => "p" , class=>"article entry-sum
+mary")) {
         print $div->as_text(), "\n";
     } else {
         print "Not found";
     }