Select Code to Download

use WWW::Mechanize;
use HTML::TokeParser;

...
while($parser->get_tag){
    print $parser->get_trimmed_text(),"\n";
}

$url_name = <STDIN>; # The user inputs the URL to be searched
 $webcrawler->get($url_name);

while($parser->get_tag){
   my $stripped_html = $parser->get_trimmed_text(),"\n";
    #print $parser->get_trimmed_text(),"\n";
   print $stripped_html;
    }