#!/usr/bin/perl
use CGI;
use LWP::Simple;
use HTML::TokeParser;

$cgiobject=new CGI;
$cgiobject->use_named_parameters;
print $cgiobject->header;

print $cgiobject->start_html
                  (-title=>'Page Parser',
                   -bgcolor=>'white');
                          

print $cgiobject->startform
                  (-method=>'get',
                   -action=>'parsepage.pl');
print "URL to Analyze:".$cgiobject->textfield
                                    (-name=>'url',
                                     -size=>'40');
print "<br>".$cgiobject->submit(-value=>'Analyze');
print $cgiobject->endform;
print "<hr>";                                     


#retrieve web page
$fetchURL=$cgiobject->param("url");
unless ($fetchURL) 
 {$fetchURL="www.yahoo.com"}

$webPage=get($fetchURL);

print <<ENDHTML;
<center><h2>$fetchURL<br>$webpage<br>
has been sliced and diced,
 thus revealing:</h2></center>
ENDHTML
                                      
&parse_title;
print $cgiobject->end_html;


sub parse_title{
#parse and output page title
$parser=HTML::TokeParser->new(shift||$webPage);
$parser->get_tag("title");
print "<p><h2>Page title</h2> ".
      $parser->get_trimmed_text."</p>";
}