get twitter list members sample

gistfile1.pl

my $tw = Net::Twitter::Lite->new(%consumer_tokens);
$tw->access_token($access_token);
$tw->access_token_secret($access_token_secret);

my ($screen_name, $list_name) = split(/\//, $ARGV[0], 2);
usage if (!$screen_name or !$list_name);

my $cursor = -1;
while ($cursor) {
    my $members = $tw->list_members({owner_screen_name => $screen_name,
                                     slug => $list_name,
                                     cursor => $cursor});
    foreach my $member (@{$members->{users}}) {
        print $member->{id}, "\t", $member->{screen_name}, "\n";
    }
    $cursor = $members->{next_cursor};
}