gistfile1.pl

#!/usr/bin/perl                                                                                               
use strict;
use warnings;
use Plack::Loader;
use AnyEvent;
use AnyEvent::Twitter::Stream;
use Encode;
use Data::Dumper;

my $user = 'xxxxxx';
my $password = 'xxxxxx';

my $impl = Plack::Loader->load( 'AnyEvent', port => 8080 );
$impl->run(
    sub {
        my ( $env, $start_response ) = @_;
        my $writer =
          $start_response->( 200, [ 'Content-Type' => 'text/plain' ] );
        my $streamer = AnyEvent::Twitter::Stream->new(
            username => $user,
            password => $password,
            method   => 'filter',
            track    => 'keyword',
            on_tweet => sub {
                my $tweet = shift;
                $writer->write(
                    encode( 'utf8',
                        "$tweet->{user}{screen_name}: $tweet->{text}" )
                      . "\n"
                );
            },
        );
        return [];
    }
);
warn Dumper($impl);
$impl->run_loop;