自分のフォロワーのフォロワーを取得するサンプル

自分のfollowerを取得し、取得したfollowerのfollowerを取得するサンプル。
CPANのNet::Twitterを使用しています。
http://search.cpan.org/dist/Net-Twitter/

#!/usr/perl

use Net::Twitter;

use warnings;
use strict;

binmode(STDOUT, ":utf8");

my $user = 'twitter_username';
my $password = 'twitter_passowrd';

my $nt = Net::Twitter->new(
                           traits   => [qw/API::REST/],
                           username => $user,
                           password => $password
                           );

my $followers = $nt->followers;
for my $follower ( @$followers ) {
    my $id = $follower->{id};
    my $user_id = $follower->{status}{id};
    my $screen_name = $follower->{screen_name};
    # cursor はフォロワーの数が一定数以上のときにページングするために必要？
    my $cursor = -1;

    # followingはfollowersをfriends(following)に変えて実行可能。
    my $in_followers = $nt->followers({
                                     id => $id,
                                     user_id => $user_id,
                                     screen_name => $screen_name,
                                     cursor => $cursor
                                     });

    my $users = $in_followers->{users};

    for my $in_follower ( @$users ) {
        print "$in_follower->{screen_name} ";
    }
    print "\n";
}