#!/usr/bin/perl -w

use strict; 
use FindBin;
use lib $FindBin::Bin;

use CGI::Carp qw(fatalsToBrowser);
use WebScraper;
use CGI;

my $q=new CGI;
print $q->header(-charset=>'utf-8');

my $newsurl='http://news.google.com/news?pz=1&ned=us&topic=b&hl=en&q';

my $g=WebScraper->new(
 debuglevel=>0,
 trim=>1
 );

$g->loadTemplate('newslist.htm'); 

$g->getPage($newsurl);

my @a=$g->grabListedData();

foreach my $k (@a){
 foreach my $p (keys %$k){
 print "$p => $$k{$p}<br>\n";
 }
 print '<hr>';
 
}

my $newsurl='http://news.google.com/news?pz=1&ned=us&topic=b&hl=en&q';
#init webscraper module
my $g=WebScraper->new(
 debuglevel=>0,
 trim=>1  #means remove left and right slashes from extracted data
 );

$g->loadTemplate('newslist.htm');   #load template from file

$g->getPage($newsurl);   #load page with url

my @a=$g->grabListedData();    #start data extraction
#next code prints extracted data
foreach my $k (@a){
 foreach my $p (keys %$k){
 print "$p => $$k{$p}<br>\n";
 }
 print '<hr>';
}

<div class="story">
 <datatag name="null" -pass="all">
 <h2 class="title">
 <datatag name="null" -pass="all">
 <input class="unstar-url">
 <datatag name="null" -pass="all">
 <datatag name="sourcelink" -extractfrom="a" -attrforextract="href">
 <datatag name="title" -pass="b">
 </a>
 </h2>
 <div class="sub-title">
 <span class="source">
 <datatag name="sourcecompany">
 </span>
 <datatag name="null" -pass="all">
 <span class="date"><datatag name="time"></span>
 </div>
 <div class="body">
 <div class="snippet">
 <datatag name="shorttext" -pass="all">
 </div>
 <datatag name="additional-article" -pass="all" -astext="yes">
 
 <div class="sources">
 <datatag name="sources" -pass="all" -astext="yes">
 <div class="moreLinks">
 <datatag name="moreLinks" -extractfrom="a" -attrforextract="href"></a>
 </div>
 <norequired>
 <div class="stock-tckrs">
 <datatag name="stock-tckrs" -pass="all" -astext="yes">
 </div>
 </norequired>

<div class="r">