Twitter フォロワーのリスト出力

#!/usr/bin/perl -w
use strict;
use Net::Twitter;

my $user_id = 'taikimen';

my $nt = Net::Twitter->new(
    username => 'taikimen',
    password => '********'
);

binmode(STDOUT, ":utf8");

for (my $cursor = -1, my $fol; $cursor; $cursor = $fol->{next_cursor} ){
    $fol = $nt->followers({'screen_name' => $user_id, cursor => $cursor});
    foreach my $user(@{$fol->{users}}){
        print $user->{name}.",".$user->{screen_name}."\n";
    }
}

exit 0;

 

懸賞とかで使えるんじゃないかなー。
Authenticateで指定したユーザーじゃないと、
TL非公開ユーザーがとれませぬ。