use strict;
use warnings;
use utf8;
use Test::More;
use Web::Query;

binmode Test::More->builder->$_, ":utf8" for qw/output failure_output todo_output/;                       

my @res;
wq('http://livedoor-search.naver.jp/search?c=ld_top_sb&ie=utf-8&q=dankogai&search_btn=1')
  ->find('.MdSRList01 h2')
  ->each(sub {
        my $i = shift;
        push @res, $_->text;
        note(sprintf "%d) %s\n", $i+1, $_->text)
  });

ok @res;

done_testing;