perlcasual_streaming.pl

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

my $config = pit_get(
    "twitter.com",
    require => {
        "username" => "your username on Twitter",
        "password" => "your password on Twitter",
    }
);

my $cv = AE::cv;
my $tw = AnyEvent::Twitter::Stream->new(
    %$config,
    track    => '#perlcasual',
    method   => 'filter',
    on_tweet => sub {
        my $tweet = shift;
        my $message = "\@$tweet->{user}{screen_name}: $tweet->{text}";
        qx{ growlnotify -m "$message" };
    }
);
$cv->recv;