report spam from user id list sample

gistfile1.pl

my %blocked_users;
map { $blocked_users{$_}++ } @{$tw->blocking_ids};

my @users = map { chomp; $_ } <STDIN>;
for my $user (@users) {
    if (! $blocked_users{$user}) {
        eval { $tw->report_spam({user_id => $user}) };
    }
}