WebScrapper Perl module

#!/usr/bin/perl -w

use strict;
use WebScrapper;

#creating paser 

my $g=WebScrapper->new(
    ignoretags=>"p,left,b,i,u,strong",
   debuglevel=>0,
   trim=>1,
   url=>'http://amazon.com/s/ref=nb_ss_gw/002-5529856-3560831?url=search-alias%3Daps&field-keywords=perl&Go.x=0&Go.y=0'
);

#creating template 

my $template=<<END;
<td class="imageColumn" ><table>
<tr><td align="center" ><a >
<datatag name="img" -extractfrom="img" -attrforextract="src">
</a></td><td ></td></tr></table></td>
<td class="dataColumn">
<table ><tr>
<td>
<datatag name="link" -extractfrom="a" -attrforextract="href">
<datatag name="title" -pass="span"></a>
<datatag name="author">
<span class="bindingBlock">
<datatag name="null" -pass="all">
<norequired>
<span class="listprice"><datatag name="listprice"></span>
</norequired>

<datatag name="null" -pass="all">
<span class="otherprice"><datatag name="otherprice"></span>

END

#loading template

$g->setTemplate($template);

my (@a,$k,$p);

#extracting data
@a=$g->grabListedData;

#printing data 

foreach $k(@a){
  print "-----------------------------n";
  foreach $p (keys %$k){
   print "$p => $$k{$p}n";
 }
}