#!/usr/bin/perl

use Web::Scraper;
use URI;
use YAML;

my $domein = 'http://www.ikea.com';
my $url = 'http://www.nitori-net.jp/'; 

my $scraper = scraper {
   process 'title','title[]' => 'TEXT'; 
   process 'div#category_top01 div.category_m ','products[]' => 
       scraper {
            process 'a>img','img'     => '@SRC';
            process 'div>a','name[]'  => 'TEXT';
            process 'div>a','link'    => '@HREF';
      };
   result qw/title products/
}->scrape(URI->new($url));

print YAML::Dump($scraper);

__END__