#!/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;