gistfile1.pl

my @friends;
for ( my $page = 1; 1; ++$page ) {
    my $r = $nt->friends({ srceen_name => $screen_name, page => $page });
    last unless @$r;

    push @friends, @$r;
}