「ZOZOTOWNで100万円分のポイントがあたるよ！」 という事でこういうコード書いた。 #!/usr/bin/perl use strict; use utf8; use AnyEvent::Twitter::Stream; use Encode; use Data::Dumper; binmode STDOUT, ":utf8"; $| = 1; my $done = AnyEvent->condvar…