#!/usr/bin/perl
use strict;
use warnings;
use lib "lib";
use URI;
use Web::Scraper;

my $nick = shift || "miyagawa";
my $uri  = URI->new("http://twitter.com/$nick");

my $twitter = scraper {
    process 'a[rel=~"contact"]',
        'friends[]' => scraper {
            process 'a',   url => '@href', name => '@title';
            process 'img', src => '@src';
        };
    result 'friends';
};

my $friends = $twitter->scrape($uri);

use YAML;
warn Dump $friends;