AnyEvent::Twitter::Stream使ってみた

引数にリアルタイムに検索したいワードを渡してやれば、リアルタイムで情報取れます。
AnyEventよくわかりません＞＜
「普通はこう書くだろう」というところがあれば、ご指摘ください

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Encode;
use XML::Simple;
use AnyEvent::Twitter::Stream;
use Data::Dumper;

my $xml = XML::Simple->new();
my $config = $xml->XMLin("/home/hoge/.twitter_account.xml");

my ($word) = @ARGV;

my $cv = AnyEvent->condvar;

my $listen = AnyEvent::Twitter::Stream->new(
    username => $config->{username},
    password => $config->{password},
    method   => 'filter',
    track    => decode_utf8($word),
    on_tweet => sub {
        my $tweet = shift;
        print encode_utf8("$tweet->{user}{screen_name}: $tweet->{text}\n");
    },
    on_eof   => $cv,
);

$cv->recv;