donjohnson

curl -d 'track=#BlackFriday' -uUSER:PASS -s -o - https://stream.twitter.com/1/statuses/filter.json | perl -mJSON -e '$|++; my $json = new JSON; while (<>) {m/\{/ or next ; my $json_text = $json->allow_nonref->utf8->relaxed->decode($_) ; $i++ ; print "\@" . $json_text->{user}{screen_name} . " " . $json_text->{text} . "\n";}'