引数にリアルタイムに検索したいワードを渡してやれば、リアルタイムで情報取れます。 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->