twitter-stream.pl

#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent::Twitter::Stream;
use Config::Pit;

my $config = pit_get("twitter.com");

my $cv = AnyEvent->condvar;

my $listenier = AnyEvent::Twitter::Stream->new(
    username => $config->{username},
    password => $config->{password},
    method   => "filter",
    track    => "perl,emacs",
    on_tweet => sub {
        my $tweet = shift;
        warn "$tweet->{user}{screen_name}: $tweet->{text}\n";
    },
    on_eof => $cv,
);
$cv->recv;