my @friends;
for ( my $cursor = -1; $cursor; ) {
    my $r = $nt->friends({ screen_name => $screen_name, cursor => $cursor }); 
    push @friends, @{$r->{users}};
    $cursor = $r->{next_cursor};
}