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

my $webcrawler = WWW::Mechanize->new();
$webcrawler->get("http://www.google.com");
my $content = $webcrawler->content;
my $parser = HTML::TokeParser->new(\$content);
while($parser->get_tag){
    print $parser->get_trimmed_text(),"\n";
}

##</code><code>##

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

##</code><code>##

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