use URI;
use Web::Scraper;
use Data::Dumper;
my $ebay_auction = scraper {    
    process "h3.ens>a",       
    description => 'TEXT',       
    url => '@href';   
    process "td.ebcPr>span", price => "TEXT"; 
    process "div.ebPicture >a>img", image => '@src'; 
    
    result 'description', 'url', 'price', 'image';  };
my $ebay = scraper {   
    process "table.ebItemlist tr.single",   
    "auctions[]" => $ebay_auction;  
    result 'auctions';  }; 
my $res = $ebay->scrape( URI->new("http://search.ebay.com/apple-ipod-nano_W0QQssPageNameZWLRS") ); 
print Dumper($res);